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有 限 元 法 发 展 至 今天 ， 已 成 为 工程 数值 分 析 的 有 力 工具 ， 在 理论 和 实践 上 均 取得 了 令 
人 瞩目 的 成 就 ， 事 实 上 它 已 经 发 展 成 为 工程 领域 中 一 门 不 可 或 缺 的 技术 。 本 书 采 用 在 当今 
工程 和 教育 界 非常 流行 的 数学 软件 MATLAB 来 进行 有 限 元 的 分 析 和 应 用 ， 特 别 是 进行 结 
构 的 动力 学 分 析 。 

本 书 的 一 大 特色 是 采用 MATLAB 作为 编程 平台 ， 利 用 MATLAB 强大 的 科学 计算 和 
符号 运算 功能 ， 帮 助 读 者 轻松 跨越 繁琐 的 公式 推导 和 复杂 的 编程 技巧 ， 获 得 最 佳 的 学 习 效 
率 。 国 内 基于 MATLAB 的 有 限 元 分 析 介 绍 主要 停留 在 静 力学 问题 分 析 上 ， 很 少 或 较 少 篇 
幅 涉 及 动力 学 分 析 ， 基 于 此 ， 系 统 、 深 入 地 介绍 基于 MATLAB 的 结构 动力 学 分 析 ， 是 本 
书 的 主要 特色 之 二 。 本 书 除 了 介绍 有 限 元 的 基本 理论 ， 还 将 介绍 作者 多 年 来 基于 
MATLAB 的 工程 仿真 成 果 ， 是 本 书 的 主要 特色 之 三 。 

本 书 详细 、 系 统 地 介绍 基于 MATLAB 的 结构 动力 学 的 基本 分 析 ， 在 写作 上 ， 采 用 理 
论 和 程序 紧密 结合 的 方法 ， 以 加 强 读者 的 感性 认识 ， 更 好 地 理解 有 限 元 理论 ， 每 章 后 面 都 
配 有 丰富 和 详细 的 工程 仿真 和 应 用 实例 ， 这 也 是 诸多 与 有 限 元 应 用 有 关 的 本 科 生 、 研 究 
生 、 科 研 人 员 和 工程 技术 人 员 所 希望 得 到 的 资料 。 本 书 不 仅 能 让 不 懂 此 软件 分 析 的 读者 入 
门 ， 而 且 能 让 入 门 者 进 阶 ， 最 后 达到 精通 ， 能 让 精通 者 应 用 到 工程 实际 中 ， 解 决 实际 工程 
计算 仿真 和 应 用 问题 。 

本 书 的 内 容 共 分 8 章 和 1 个 附录 。 第 1 章 主要 介绍 有 限 元 的 基本 方法 和 应 用 步骤 ;第 
2 章 主要 讲述 结构 的 动力 特性 和 响应 分 析 ; 第 3 一 7 章 主要 介绍 各 种 有 限 元 单元 以 及 各 种 
典型 工程 结构 ， 包 括 各 种 单元 的 质量 矩阵 和 刚度 矩阵 的 建立 以 及 基本 的 结构 动力 学 分 析 
(固有 频率 的 求解 和 动 响应 分 析 ): 第 8 章 为 工程 应 用 和 数值 仿真 部 分 ， 主 要 介绍 基于 
MATLAB 的 结构 动力 学 分 析 在 结构 领域 的 一 些 应 用 ;附录 针对 MATLAB 语言 和 其 他 高 
级 编程 语言 的 不 同 之 处 ， 对 MATLAB 在 本 书 中 使 用 到 的 功能 进行 简要 的 介绍 。( 另 外 ， 本 
书 正 文中 用 句点 “.” 表 示 一 句 话 结束 ， 含 义 与 句号 “。” 相 同 。) 

适用 对 象 ， 本 书 内 容 专 业 ， 是 一 本 难得 的 、 系 统 的 工程 书籍 ， 能 够 帮助 读者 更 好 地 解 
决 问题 ， 可 以 作为 在 校 大 学 生 、 研 究 生 、 教 师 、 工 程 师 和 科研 人 员 的 参考 手册 ， 亦 可 作为 
广大 工程 技术 人 员 的 参考 用 书 。 

本 书 由 徐 斌 (西北 工业 大 学 )、 高 跃 飞 (中 北大 学 ) 和 余 龙 (西北 工业 大 学 ) 等 负责 编写 。 第 
2 章 、 第 6 章 、 第 8 章 8.1 一 8.3 节 由 徐 斌 编写 ， 第 1 章 1.1 节 和 1.2 节 、 第 4 章 、 第 5 章 
由 高 跃 飞 编写 ， 第 1 章 13 节 、 第 3 章 、 第 7 章 以 及 附录 由 余 龙 编写 ， 第 8 章 8.5 节 由 杨 
水 锋 编写 。 全 书 的 统 稿 及 审 校 工作 由 徐 斌 负责 。 还 要 特别 感谢 家 人 在 作者 写作 本 书 时 所 做 
的 支持 和 理解 。 由 于 本 书 程序 量 大 ， 为 了 方便 读者 学 习 ， 本 书 中 的 所 有 程序 均 已 存在 网 站 
下 载 资源 中 。 程 序 是 按 章 分 类 的 ， 每 个 文件 名 都 有 一 个 相应 的 序号 ， 根 据 书 中 的 模型 名 
称 ， 或 者 M 文件 名 称 直接 在 网 站 下 载 资 源 中 查找 相对 应 的 文件 名 即 可 方便 地 找到 。 另 
外 ， 书 中 所 有 程序 都 已 上 传 至 科研 中 国 网 站 http://www.sciei.com。 如 果 有 任何 技术 问题 ， 
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第 1 章 ， 有限 元 法 基础 
1.1 有 限 元 法 简介 


在 工程 与 科学 的 现代 系统 分 析 中 ， 对 复杂 系统 计算 模型 的 建立 进行 了 大 量 的 研究 ， 人 
们 已 经 能 够 得 到 系统 应 遵循 的 基本 方程 和 相应 的 定 解 条 件 . 这 些 方程 一 般 为 常 微分 方程 或 
偏 微分 方程 ， 只 有 少数 问题 能 够 用 解析 方法 得 到 精确 解 ， 多 数 问题 需要 利用 数值 方法 来 求 
解 . 有 限 元 法 (又 称 有 限 单元 法 ) 是 近代 发 展 起 来 的 解决 复杂 结构 问题 的 一 种 有 效 数值 方法 

有 限 元 法 的 基本 思想 是 将 连续 的 求解 区 域 离散 为 一 组 有 限 个 、 按 一 定 方式 相互 联结 在 
一 起 的 单元 的 组 合体 . 由 于 单元 能 按 不 同 的 联结 方式 进行 组 合 ， 且 单元 本 身 又 可 以 有 不 同 
的 形状 ， 因 此 可 以 模型 化 几何 形状 复杂 的 求解 域 . 有 限 元 法 作为 数值 分 析 方法 的 另 一 个 重 
要 特点 是 利用 在 每 一 个 单元 内 假设 的 近似 函数 来 分 片 地 表示 全 求解 域 上 待 求 的 未 知 场 函 数 
单元 内 的 近似 函数 通常 由 未 知 场 函数 或 及 其 导数 在 单元 的 各 个 节点 的 数值 和 其 插值 函数 来 
表达, 这 样 一 来 ， 一 个 问题 的 有 限 元 分 析 中 ， 未 知 场 函数 或 其 导数 在 各 个 节点 上 的 数值 就 
成 为 新 的 未 知 量 (也 即 自由 度 )， 从 而 使 一 个 连续 的 无 限 自 由 度 问题 变 成 离散 的 有 限 自由 度 
问题 , 一 经 求解 出 这 些 未 知 量 ， 就 可 以 通过 插值 函数 计算 出 各 个 单元 内 场 函数 的 近似 值 
从 而 得 到 整个 求解 域 上 的 近似 解 . 显然 随 着 单元 数目 的 增加 ， 也 即 单元 尺寸 的 缩小 ， 或 者 
随 着 单元 自由 度 的 增加 及 插值 函数 精度 的 提高 ， 解 的 近似 程度 将 不 断 改进 . 如 果 单 元 是 满 
足 收 敛 要 求 的， 近似 解 最 后 将 收敛 于 精确 解 

从 确定 单元 特性 和 建立 求解 方程 的 理论 基础 和 途径 来 说 ， 早期 提出 有 限 元 法 时 是 利 
用 直接 刚度 法 ， 它 来 源 于 结构 分 析 的 刚度 法 . 1963 一 1964 年 ， 有 限 元 法 被 证 明 是 基于 变 分 
原理 的 Ritz( 里 兹 ) 法 的 另 一 种 形式 ， 从 而 使 Ritz 法 分 析 的 所 有 理论 基础 都 适用 于 有 限 元 
法 ， 确 认 了 有 限 元 法 是 处 理 连续 介质 问题 的 一 种 普遍 方法 . 利用 变 分 原理 建立 有 限 元 方程 
和 经 典 里 效法 的 主要 区 别 是 有 限 元 法 假设 的 近似 函数 不 是 在 全 求解 域 而 是 在 单元 上 规定 
的 ， 而 且 事 先 不 要 求 满足 任何 边界 条 件 ， 因 此 它 可 以 用 来 处 理 很 复杂 的 连续 介质 问题 . 从 
20 世纪 60 年 代 后 期 开始 ， 利 用 加 权 余 量 法 来 确定 单元 特性 和 建立 有 限 元 求解 方程 的 方法 
得 到 了 普遍 的 应 用 . 有 限 元 法 中 所 利用 的 主要 是 Galerkin( 伽 辽 金 ) 法 ， 它 可 以 用 于 已 知 问 
题 的 微分 方程 和 边界 条 件 ， 但 是 变 分 的 泛 函 尚未 找到 或 者 根本 不 存在 的 情况 ， 进 一 步 扩大 
了 有 限 元 法 的 应 用 领域 中 . 

近年 来 ， 随 着 计算 机 技术 的 快速 发 展 和 各 种 商业 化 有 限 元 软件 的 不 断 完 善 ， 有 限 元 法 
逐渐 成 为 动力 学 分 析 所 普遍 采用 的 一 种 有 效 方法 . 
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12 ”建立 有 限 元 方程 的 基本 方法 


1.2.1 加 权 余 量 法 


基于 微分 方程 等 效 积分 的 加 权 余 量 法 是 求解 微分 方程 近似 解 的 一 种 有 效 方法 ， 有 限 元 
法 中 可 以 用 加 权 余 量 法 来 建立 有 限 元 方程 . 工程 中 的 多 数 分 析 问 题 是 以 未 知 场 函数 应 满足 
的 微分 方程 和 边界 条 件 的 形式 表示 的 ， 一 般 可 表示 为 未 知 函数 应 满足 的 微分 方程 组 


AG) 
А(и)=+ A, (u)}=0 (EQ) (1-1) 


和 应 满足 的 边界 条 件 


Bu) 
Bu) =4B,(u)p=0 (ЕГ E) (1-2) 


SU, ООЖ, TRI, m ER ОЛУ. 上 述 的 未 知 函数 4 可 以 是 标 - 
量 场 (如 温度 )， 也 可 以 是 向 量 场 ( 如 位 移 、 应 力 、 应 变 等 ). 4 、B 是 对 于 独立 变量 的 微分 
算 子 . 
由 于 式 (1-1) 在 域 2 中 的 任 一 点 均 必 须 为 零 ， 因 而 有 
J V Ade = | A +у,А,(и)+--)42=0 (1-3) 


其 中 


是 函数 向 量 ， 是 一 组 与 微分 方程 个 数 相等 的 任意 函数 . 
式 (1-3) 是 与 微分 方程 组 (1-1) 完 全 等 效 的 积分 形式 . 可 以 断言 ， 若 积分 方程 (1-3) 对 于 任 
意 的 函数 向 量 这 成 立 ， 则 微分 方程 组 (1-1) 必 然 在 域 Q 内 任 一 点 都 满足 . 这 是 因为 假定 微分 
方程 组 (1-1) 在 域 2 内 某 些 点 或 一 部 分 子 域 中 不 满足 ， 相 应 地 可 找到 适当 的 函数 天 使 式 (1-3) 
亦 不 等 于 零 
同 理 若 对 边界 上 任 一 点 式 (1-2) 成 立 ， 则 对 于 一 组 任意 函数 严 有 
f V BAr = | ви) B, u) +947 =0 (1-4) 


此 ， 积 分 方程 


J V Awdas | 天 BOdr=0 (1-5) 


FAAR AI jr 628 FA E 0307 27 FE - LYALL ARE (1-2). 式 (1-5) 称 为 微分 方程 的 
等 效 积分 形式 ， 也 称 为 等 效 积分 的 “ 强 ” 形 式 . 在 上 述 的 讨论 中 ， 假 定 积分 | V Ada 


和 上 严 BGoOd 太 是 可 计算 的 ， 这 就 要 求 函数 和 严 的 选取 必须 满足 可 积 的 条 件 
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在 很 多 情况 下 ， 对 式 (1-5) 可 进行 分 部 积分 ， 得 到 另 一 种 等 效 积分 形式 
J E @D@da+ f, ETG)FCOdr=0 (1-6) 
式 中 ，C 、D 、E 和 下 是 微分 算 子 . 式 (1-6) 称 为 微分 方程 等 效 积分 的 “ 弱 ” 形 式 . 积分 方 
程 (1-6) 中 所 包含 的 导数 的 阶 数 较 式 (1-5) 中 的 4 低 ， 这 就 对 函数 & 的 连续 性 要 求 降低 ， 只 需 
有 较 低 阶 的 连续 性 就 可 以 了 . 在 求解 域 2 中， 车场 函数 4 是 精确 解 ， 则 在 域 2 中 任 一 点 
都 满足 微分 方程 (1-1)， 同 时 在 边界 厂 上 任 一 点 都 满足 边界 条 件 (1-2). 此 时 ， 等 效 积 分 形式 
的 式 (1-5) 或 式 (1-6) 也 必然 满足 . 但 是 对 于 多 数 应 用 问题 ， 这 样 的 精确 解 是 难以 获得 的 ， 因 
而 人 们 致力 于 寻找 具有 一 定 精度 的 近似 解 . 加 权 余 量 法 是 获取 微分 方程 近似 解 的 一 种 有 效 
方法 . 
对 于 式 (1-D 和 式 (1-2) 所 描述 的 问题 ， 未 知 场 函数 & 可 用 带 有 待定 参数 的 近似 函数 来 表 
示 . 这 种 近似 函数 是 一 簇 已 知 函数 ， 一 般 可 表示 为 以 下 形式 
uxii=>Na,=Na (1-7) 


式 中 ，w 是 待定 参数 ， М 是 称 为 试探 函数 的 已 知 函 数 ， 可 取 自 线性 独立 的 完全 函数 序列 . 
此 外 ， 这 种 近似 函数 的 选取 应 满足 边界 条 件 和 连续 性 的 要 求 . 
一 般 在 n 取 有 限 项 数 的 情况 下 近似 解 不 能 精确 满足 微分 方程 (1-1) 和 边界 条 件 (1-2)， 将 
PERI RAR 
A(Na)=R, B(Na)=R (1-8) 
这 种 残 差 称 为 余 量 . 
对 于 式 (1-5)， 用 半 个 规定 的 函数 来 代替 任意 函数 斑 和 严 
V-W, V=W, (]=1,2,--:,п) 
则 可 得 到 近似 的 等 效 积分 形式 
УЛ А0а)ао + [ W'B(Na)d =0 (j =1,2,,n) (1-9) 
表示 成 余 量 的 形式 为 
|W'RdQ+ | WRAP =0 (у=12,л) (1-10) 
式 (1-9) 和 式 (1-10) 说 明 通 过 选择 待定 参数 可 使 余 量 在 某 种 平均 意义 上 等 于 零 . Ww 
历 BLM. 
令 余 量 的 加 权 积分 为 零 得 到 一 组 方程 ， 可 用 来 求解 近似 函数 的 待定 参数 wx ， 从 而 得 到 
原 问题 的 近似 解 . 展开 式 (1-9)， 有 
J W АМа)до + | W/ B(Nayar =0 


[L ANa)aQ + | #ЛВ(Ма)аГ =0 


J W ANa + Í W,B(Na)dr -0 
以 上 方程 中 车 4 中 的 元 素 个 数 为 m ， 边 界 条 件 В 中 的 元 素 个 数 为 m, ， 则 权 函 数 
№, (j=1,2,…,n) 是 m 阶 的 函数 列 阵 ， 夯 (j=1,2,…,n) 是 m, 阶 的 函数 列 阵 . 近似 函数 取 的 
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项 数 n 越 多 ， 近 似 解 的 精度 越 高 ， 当 项 数 n 趋 于 无 穷 时 ， 近 似 解 将 收敛 于 精确 解 . 
对 于 等 效 积分 “ 弱 ” 形 式 ， 代 入 近似 解 的 近似 形式 为 
fJ CW DNAR + f, Е'0Ў,уЕ(Ха@)4Г =0 (=1,2,,п) (1-11) 
这 种 采用 使 余 量 积分 为 零 来 求解 微分 方程 近似 解 的 方法 称 为 加 权 余 量 法 . 权 函数 可 以 
从 任何 独立 的 完整 函数 集 来 选取 . 按照 权 函 数 选取 的 不 同 可 以 给 出 不 同 的 加 权 余 量 方法 . 
常见 的 权 函 数 有 以 下 几 种 (其 他 的 方法 可 见 参考 文献 中 ). 
1. 配点 法 
该 方法 用 Dirac б 函数 作为 权 函 数 
W, =W, = б(х-х,) (1-12) 
若 域 Q 是 独立 坐标 x 的 函数 ， 则 有 : xx, IW, =0, HÁT 
[made=T (=12,-,п) 


这 种 方法 强迫 余 量 在 域 介 内 的 n 个 点 上 等 于 零 . 


2. 最 小 二 乘法 
当 近 似 函数 取 为 
а= Na, 
BUR HOR 
aR _ 2 ў 
W, “За, 9a, AÈ Na) (1-13) 
由 
J,W Rao =0 


有 
2 j mao-- [ à. Na)aQ-0 
0a," да, us 

其 实质 是 使 积分 


J(a)= |, AÈ Na) a2 
= 


取 最 小 值 . 
3. Galerkin 法 
在 该 方法 中 ， 用 试探 函数 的 序列 作为 权 函 数 . 取 权 函数 为 
ас pa SR: 
#, “да, his де, Ne 
或 


W,=N,, W,--N (1-15) 
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以 上 几 种 方法 可 以 用 下 面 的 二 阶 常 微分 方程 求解 来 说 明 . 
【 例 1.1】 对 于 问题 


и(0)=0, u(1)-0 
取 二 项 式 的 近似 函数 
й = а,х(1-х)+ а,х\(1-х) 
为 近似 解 . 显然 该 近似 解 满足 边界 条 件 ， 但 不 满足 微分 方程 ， 产 生 的 余 量 为 
R()ezx*a(-2*x-x)*a,2-6x4x' -x) 
其 加 权 积分 应 为 零 ， 即 
JmRdr=0 
(D 配点 法 。 
Wx, =1/3, х; =2/3 (ENR, BAT 


(лче 


代入 用 WRdx =0， 可 得 


[2-2 1. -a -0 
3 9 27 


求解 上 述 的 代数 方程 可 得 w =0.1947, a, = 0.1731. 于 是 近似 解 为 
й = 0.1947х(1- x) +0.1731х°(1- x) 

(2) 最 小 二 乘法 。 

取 权 函数 为 


2080 ор ә AE pr ә 
a, a, 


(A Дивак [iR Z асо, ur 
c, 


ficta C24 x-x) a Q 76x -x) 2e x-x)dx- 0 
fixe a C2 xx) на Q7 6x -x))2 - 6x x x)dr=0 
求解 上 述 的 代数 方程 可 得 w =0.1875, а, = 0.1695. 于 是 近似 解 为 
й = 0.1875х(1- x) +0.16952 (1— x) 
(3) Galerkin 法 。 
取 近 似 函 数 序列 作为 权 函 数 . 由 于 
ü- Na, + Na, = аух(1-х)+ а„х?(—х)= Na 

Job, N-[N, M]. а=[а а]. 


6 MATLAB 有 限 元 结构 动力 学 分 析 与 工程 应 用 


因而 有 
W-N-xü-x). тА, 1-5) 


代入 人 Rde=0， 可 得 
fixa pee a (C2: x1) £a, Q - 6x x! - x) - 0 
[9a-3piea 24x) *a Q7 6x -dr =0 
求解 上 述 的 代数 方程 可 得 a, = 0.1924, а, 20.1707. 于 是 近似 解 为 
й = 0.1924x(1 — x) + 0.170752 (1 — x) 
对 于 该 问题 ， 通 过 分 部 积分 ， 其 近似 等 效 积分 的 “ 弱 ” 形 式 为 


1 (Pit, - (аи, ай. ай 
J= | (1) 


由 于 近似 函数 为 
ü-Na +Na,=Na, W,=N,=x(l-x), W=N,=x(-x) 
式 (1) 可 写 为 
Ka=P 
其 中 


k-[ (E 2-va] de, P= | м'хах 


122 147k 
对 于 一 个 连续 介质 问题 ， 未 知 函数 & 的 泛 函 为 
П = |, FS да+ | E(w jar (1-16) 
о ar MET 
其 中 ，F 和 EE 是 特定 的 算 子 ，Q2 是 求解 域 ， 厂 是 侣 的 边界 . 
在 变 分 方法 中 ， 连 续 介 质问 题 的 解 u 是 使 泛 函 ЛТ 对 于 微小 变化 的 би 取 驻 值 ， 即 泛 函 
的 “ 变 分 ”等 于 零 
317=0 (1-17) 
对 于 可 以 运用 变 分 原理 的 问题 ， 可 以 建立 其 得 到 近似 解 的 如 下 方法 . 未 知 函数 的 近似 
解 可 表示 成 带 有 待定 参数 的 试探 函数 
usü= Y Na, = Na (1-18) 


sUb. а 为 待定 参数 ，N 是 已 知 的 函数 序列 . 将 式 (1-18) 代 入 式 (1-16)， 得 到 用 试探 函数 
和 待定 参数 a 表示 的 泛 函 /7 . 泛 函 的 变 分 为 零 相 当 于 将 泛 函 对 关于 待定 参数 进行 全 微 
分 ， 并 令 其 等 于 零 ， 即 

гп, elt 9H 


8/7 = 一 一 ia +— - 
П да, iuro ба, + = 


ба„=0 (1-19) 
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ӘП ӘП... ӘП wy, 


HF ба, ‚бе, ,…,8a, 是 任意 的 ， 式 (1-19) 成 立时 必 有 一 一 ， oy 
да, да, да, 


因而 有 


由 上 述 与 待定 参数 的 数目 相等 的 方程 组 可 求 出 &. 


(1-20) 


如 果 在 泛 函 [7 и 及 其 导数 的 最 高 阶 次 为 二 阶 ， 则 称 泛 函 有 为 二 次 泛 函 . 工程 中 的 


许多 问题 都 属于 二 次 泛 函 . 对 于 二 次 泛 函 问题 ， 式 (1-20) 退 化 为 一 线性 方程 组 


对 式 (1-21) 变 分 ， 得 


a (әп a (әп 
da ae m 
(2). : =Kéa 
да alan a (әп 
aon ^ (52). 
由 和 矩阵 下 的 子 矩 阵 
.81 AOT 
Ж.Т дода, + E, = олда, 
"p 
K,-K, 
HAE BE K 是 对 称 和 矩阵 . 


由 式 (1-21) 可 将 近似 泛 函 表示 成 
П =за'Ка-аїр 
这 是 因为 对 式 (1-25) 中 的 7 变 分 ， 得 
8/1 = уба'Ка 1a Ka ёар 
ИЖЕ K 的 对 称 性 ， 有 
$a'Ka=a' Kia 


因而 
6/] =5a'(Ka-P)=0 


因为 6a 是 任意 的 ， 可 得 Ka -P=0， 即 为 式 (1-25). 


(1-21) 


(1-22) 


(1-23) 


(1-24) 


(1-25) 
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【 例 1.2】 对 于 问题 


人 tu (0s x1) 
u(0)=0, u(1)=0 
建立 其 变 分 原理 . 
该 问题 的 变 分 可 表示 为 


对 方程 中 积分 的 第 一 项 进行 分 部 积分 ， 可 得 


317= пз 


利用 变 分 算 子 的 交换 性 


于 是 可 得 到 泛 函 


1.23 Ritz 法 
Ritz 法 是 从 一 簇 假定 解 中 寻找 满足 泛 函 变 分 的 最 好 解 的 近似 方法 . 在 该 方法 中 ， 近 似 
解 的 精度 与 试探 函数 的 选择 有 关 ， 如 果 对 所 求解 的 性 质 了 解 ， 则 可 通过 选择 反映 解 特性 的 
试探 函数 来 提高 近似 解 的 精度 . 若 精确 解 能 够 包含 在 试探 函数 中 ， 则 Ritz 法 可 求 得 精确 解 
Ritz 法 求解 的 过 程 与 变 分 方法 相同 . 这 里 仍 以 例 1.1 中 的 算 例 来 讨论 
【 例 1.3】 对 于 问题 
De (0<х<1) 
u(0)=0, u(1)=0 
利用 Ritz 法 求 近似 解 . 
方程 中 ， 边 界 条 件 为 强制 边界 条 件 . 可 以 选取 不 同 的 试探 函数 形式 ， 用 Ritz 法 求解 
(1) 选取 近似 解 为 多 项 式 。 
й=ах(1-х) 
满足 边界 条 件 ， 且 有 


—=a,-2a,x 
dr 


将 其 代入 该 问题 的 泛 函 
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可 得 到 用 待定 参数 a, 表示 的 泛 函 
п=+[[у@-зхў-тофу x (1-xy -ax^(1— 9-12 i 十 a, 
令 泛 函 变 分 等 于 零 
9H. 
aa — 
得 
а=5. 
' 18 
因而 近似 解 为 
а= 0-9) 


(2) 选取 近似 解 为 正弦 函数 式 。 


ii — a, (sinx – хѕіп1) 


满足 边界 条 件 ， 且 有 


— = a,(cosx —sinl) 


将 其 代入 该 问题 的 泛 函 


可 得 到 用 待定 参数 a, 表示 的 泛 函 


П = DE =a} (cosx- sinl -2a (sin х — xsin1) - a,x(sinx — xsin) Jar 


ОЛЕ sinl- -eolj-a ШЕ) 
2 3 3 


令 泛 函 变 分 等 于 零 
oll 
“=0 
да, 
得 
£ 
a =— 
sinl 
因而 近似 解 为 
-_ sinx 
й= -x 
sinl 


上 式 等 于 精确 解 ， 其 原因 是 所 选取 的 试探 函数 正好 包含 了 该 问题 的 精确 解 . 


1.24 能 量 原理 


在 线 弹性 结构 计算 中 ， 通 常 要 用 到 基于 变 分 原理 的 最 小 势能 能 量 原理 和 最 小 余 能 原 
理 ， 在 此 给 出 有 关 的 表达 式 . 
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1. 弹性 力学 的 基本 方程 
在 线 弹性 力学 中 ， 在 载荷 的 作用 下 弹性 体内 任 一 点 的 应 力 状 态 可 由 6 个 应 力 分 量 
Oy. сух Oss Tyr TMT, ЖЖК, GRAN 


x y 
2, 


©, 
Т =-[c о, о, ty r, Ta] (1-26) 


т. 


т, 


弹性 体内 任 一 点 的 位 移 可 由 沿 直 角 坐 标 轴 方 向 的 3 ЧИНИ, v lw ж, Ж 


阵 形式 为 
u 
ee v wy! (127) 
w 


弹性 体内 任 一 点 的 应 变 可 由 6 个 应 变 分 量 &, E> ELS Pay 7, У ЖЕ, M: 
阵 形式 为 


& s zt To (1-28) 


Vex 


=+Y=0 (1-29) 


且 有 
Ty =Trr，Te=To，Tu=T (1-30) 
RP, X. YAZ 为 单位 体积 的 体积 力 在 坐标 轴 上 的 分 量 . 
力学 边界 条 件 (在 力 边 界 So 上) 为 
ol+t,m+t.n-X =0 
rl eo,mer,n-Y =0 (1-31) 
Z=0 


т.1+т,т+с,п- 
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式 中 : 人 m 和 п WEARER ARZ: X. Y RZ EATER ЕТЕТ 


积 力 在 坐标 轴 上 的 分 量 . 
几何 方程 为 
ди _ = 本 2100 2 
ST £, By £, = 0, 
У, (2-2) -(%+2}-0 --(%+2}-0 
” \& ð * (ду ë 2 x 
位 移 边界 条 件 (在 位 移 边界 5, 上) 为 
u=u, v=V, w=W 
本 构 关 系 为 
о, 
9,| [di а, du ||? 
o| |do da = dalja | o 
Ty ; У 
„| la, da = dally, 
t, Vex 
对 于 各 向 同性 体 
d, d, с da 
›-|® de = da 
d, dy dy 
] oe А 0 0 0 
l-v l-v 
ae ep 0 0 
l-v l-v 
ae d 0 0 0 
___Е@-# 1-и 1-v 
(l+v)-2v)} 9 0 0 1-2v 0 0 
2ü-v) 
0 0 0 1-2v 
2ü-v) 
0 o 0 0 ем 
2ü-v) 


式 中， 无 为 弹性 模 量 ，yY 为 Poisson( 泊 松 ) 比 . 
2. 虚 功 原理 和 最 小 势能 原理 


(1-34) 


(1-35) 


根据 广义 力 和 广义 位 移 之 间 的 对 应 关系 ， 将 式 (1-29) 和 (1-31) 乘 上 相应 的 虚 位 移 一 一 任 


意 的 、 微 小 的 、 约 束 所 允许 的 位 移 ， 然 后 积分 并 相 加 ， 有 
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де, Nu Or, 42S, дт„ 
Е! тат = + xb + OD aUa ta t DN 


+E Te Fes zur + fio en, m t,n- Х)би 


(rl + o,m r,n— Ү)бу +(т1+т„т+оп- Z)8w]dS =0 (1-36) 
应 用 Green 定理 
-[ вау =- Л вый + ffo, $ Day 


也 py = “I т„тбид$ + [| т, = 


feos =- J сана fo. 2 aay 


可 得 
Әби, u Әби ду Ov, By 
fhe. AU y I ~Xbu) +07, o, y be -Үбу) 


bw aiw ow 


+(z, 2 _75у)јау - fite: +т„т+т„п)би 


— +r, —+ ^x 
"A a 
+(т„!+ o, m + т„п)бу + (Tal + т„т + a, n)ów)dS — *YóveZów)d$-0 (1-37) 

So 


将 式 (1-32) 和 式 (1-33) 代 入 式 (1-37)， 得 到 
о, 5, +0,86, +а,ӧє, +т,ӧу, +т„бу„ +т„бу„) 


~(Xbu +Yëv + 25и) — [[(Хби + Үбу + Z8w)dS =0 (1-38) 
式 (1-38) 就 是 虚 功 原理 的 表达 式 ， 它 表明 : 当 弹 性 体 在 外 力作 用 下 处 于 平衡 状态 时 ， 对 于 
任意 为 约束 所 允许 的 虚 位 移 ， 外 力 虚 功 等 于 内 力 虚 功 . 


式 (1-38) 可 写成 矩阵 形式 
[[[ю'бє- F'šu)ay - [[Р'бид$ =0 (1-39) 


RP: с 为 应 力 向 量 ，& 为 应 变 向 量 : 下 为 体力 向 量 ，P 为 面 力 向 量 ，w 为 位 移 向 量 . 
将 本 构 关系 式 (1-34) 代 入 式 (1-39)， 可 得 
Пе" pse - Е'би]дү - [[Р'бийд$ =0 (1-40) 
进而 可 得 
8 [jfi$ e" De - F'ujav -8 ff'uas -o "m 
式 (1-41) 可 表示 为 一 个 泛 函 的 驻 值 问题 
П= flit; e De- rav - fpes (1-42) 
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这 就 是 最 小 势能 原理 . 
通常 将 
u= fif Jerpedr (1-43) 
称 为 内 力 势能 或 应 变 能 ， 将 
У=-[|[ F'uàV - [[P'uds (1-44) 
v So 


称 为 外 力 势能 ， 而 Z =U +V 称 为 总 势能 . 
3. 余 虚 功 原理 和 最 小 余 能 原理 


根据 广义 力 和 广义 位 移 之 间 的 对 应 关系 ， 将 式 (1.32)、 式 (1.33) 乘 上 相应 的 虚 应 力 -一 
任意 的 、 微 小 的 、 平 衡 所 允许 的 应 力 ， 然 后 积分 并 相 加 ， 有 
jie, - Sa, +(e, oce +G, ae 


w, Y 


ду 
"x $95, +0. - ~ - Sr, +0. 2 Ta 
+ flu - 80,1 + dr, m 87,5) + (v - VX6r,1 * 80,m «87, n) 
5 
+(w— wr, + ёт„т + бо п)]4$ = 0 (1-45) 
应 用 Green( 格 林 ) 定 理 


E [воа = -上 vons+ fu гт av 


бели =- [j om ffe mra 


-[[веду-- J бола [fw 2 av 


Br, 


бв, av =- Ses {fh = 


dV 


[[fte.5o. *£,00, +650, +y Or, * y, Or, + y OT, 
7 


ôo, r, Gr, д$т„ дбо, Obr, 


= 5 
tu Pr Ca t ду z 
т, T, c. 
* 
ду 


+у(бт„! +бо,т+&ёт„п)+ wört! c 6r, m 80,n)dS 
-|| $860,187, m «5r, 0) (67,1 бот ӧс) 
Su 


+0(5r_1 +õr m +бо,п)]4$ =0 (1-46) 
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对 平衡 方程 (1-29) 和 力学 边界 条 件 (1-31) 进 行 变 分 ， 有 


дх ду [4 

Brn Bo, Bre -0 (1-47) 
ex ду & 

06r, öt, дбо, =й 
ax дуо ё 

60l+6r,m+é6r.n=0 

ӧт,1+ӧс,т+ӧт.п=0 (1-48) 


ӧт.1+ӧт,т+ӧс,п=0 
代入 式 (1-46)， 得 
[[[є„бе, + 5,90, +8,50, «y, or, + у„ёт„ + у„$т„]4/ 
= ff (бо! +&т„т+ёт„п)+%(ёт„ + 80,m rn) : 
i +9 (ӧт,/+ӧт,т+дӧо,п))45 =0 (1-49) 


式 (1-49) 就 是 余 虚 功 原理 的 表达 式 ， 它 表明 : 当 物 体 处 于 变形 协调 状态 时 ， 其 内 力 余 虚 功 
等 于 外 力 余 虚 功 . 


式 (1-49) 可 写成 矩阵 形式 
fff &'8cav - [| и'&Ра$ =o (1-50) 
Y & 
将 本 构 关系 式 (1-34) 代 入 式 (1-50)， 可 得 
fff oD soav - [fu'sPas -o (1-51) 
& 
进而 可 得 
afff ge D'oàv -8 [Ju Pas =0 (1-52) 
7 š 
式 (1-52) 可 表示 为 一 个 泛 函 的 驻 值 问题 
Г= [fte 2 oar = Дев (1-53) 
这 就 是 最 小 余 能 原理 . 
通常 将 
Ut= Ш 10"р^обу (1-54) 
称 为 内 力 余 能 ， 将 
y*- - (jw Pas (1-55) 
x 


称 为 外 力 余 能 ， 而 厂 =U*+V* 称 为 总 余 能 . 
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三 维 弹性 动力 学 的 基本 方程 是 : 
平衡 方程 o, +f, = pu, + uu, (ҮЧ) 


几何 方程 u,,+u,,) (ЕР) 
物理 方程 o, = Djwe。 (fE V RA) 
边界 条 件 w-u (ŒS, ARE) 
on, =T, (ŒS, 边界 上 ) 
初始 条 件 и (х,у,2,0)= (х2) 
u, (x,y,z,0)=u,,(x,y,z) 
其 中 ，o 是 应 力 ，w EAB, e EAX, DERHEN, f 是 体积 力 ，p 是 质量 密度 ， 
и, ТАНЯ, u, 和 wi 分 别 是 u, 对 + 的 一 次 和 二 次 导数 ， 即 i 方向 的 速度 
和 加 速度 ， ou, 和 ju 分别 是 惯性 力 和 阻尼 力 ， 如 果 是 静 力 学 问题 ， 则 在 平衡 方程 中 就 


没有 这 两 项 . 
平衡 方程 及 力 的 边界 条 件 可 以 用 等 效 积分 的 伽 辽 金 形 式 表 示 如 下 
f,9w(o,, + f, - ри„- u) AV - d: ёи (o,n, -T,) ds =0 (1-56) 
对 式 (1-56) 的 第 一 项 | био, dV 进行 分 部 积分 ， 并 代入 物理 方程 ， 可 得 到 
J, (85, Due, +Šu,pu,, +8ugu,,) dV = f šu fav + f. šu Tas (1-57) 


由 于 通过 几何 方程 ， 应 变 也 可 以 用 位 移 来 表示 ， 所 以 如 果 能 找到 位 移 在 积分 区 域内 的 
表达 式 就 可 以 完成 上 述 积分 . 这 一 般 是 非常 困难 甚至 是 不 可 能 的 ， 即 使 是 寻找 近似 的 表达 
式 也 是 非常 困难 的 . 但 考虑 到 实际 问题 中 位 移 表 达 式 的 函数 不 会 是 无 限 复杂 的 ， 如 果 首先 
进行 对 位 移 空间 离散 化 ， 只 要 局 部 区 域 划分 合适 且 各 局 部 区 域 足够 小 ， 则 在 该 局 部 区 域 中 
找到 具有 足够 精度 的 位 移 关系 表达 式 就 比较 容易 . 这 样 可 以 通过 分 片 计算 来 完成 式 (1-57) 
的 积分 . 

一 般 是 通过 由 区 域 各 节点 位 移 来 确定 系数 的 插值 函数 来 近似 该 区 域内 的 位 移 函 数 . 即 


u(x, у) EN, (x,y,z,t)u, (t) 
vss) XN (ea) l) (1-58) 
w(x,y,z,t) = EN (x,y,z,t) w,(t) 


tn WER AMA, u(t)v (t) w (ATA i c ЖШ. 式 (1-58) 也 可 以 写成 
u= Na‘ (1-59) 
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| 
и={у(х,умы)ыМ=[М, М, = N,] 
w(x, y,2,t) 

Ni =NT (i=b2…,n) 


u, (t) 
v(t) (i212) 
w, (2) 


其 中 


а 


а, 
Я 
а=} 2а = 


а, 
式 中 ，N 为 插值 函数 矩阵 或 形 函 数 矩 阵 . 
在 得 到 了 单元 位 移 函 数 后 ， 可 以 利用 物理 方程 来 求 得 单元 应 变 . 将 式 (1-59) 代 入 几何 
方程 得 
£ = Lu = LNa' = Ва“ (1-60) 
RP, В 为 应 变 矩 阵 ， 工 为 相应 问题 的 微分 算 子 . 
通过 位 移 空间 离散 化 ， 并 注意 到 节点 位 移 变 分 ба 的 任意 性 ， 将 式 (1-59) 和 式 (1-60) 代 
入 式 (1-57)， 就 最 终 可 以 得 到 如 下 的 系统 求解 方程 
Ма(ї)+ Са(ї) + Ka(t)= P(r) (1-61) 
Rp, G(r) Blac) E 858006 cm dE AS AG AE TES M,C, K 和 P(t) 是 系统 的 质 
ЖЕ, BALE RE, SE EE AY AR I8] ik. 
在 得 到 上 述 系统 运动 方程 之 后 ， 可 以 选择 用 直接 积分 法 或 者 模 态 分 解法 来 求解 系统 
响应 . 
上 述 动力 学 有 限 元 方法 可 以 分 为 5 步 : 
(1) 划分 区 域 (划分 单元 ). 
(2) 在 单个 区 域内 使 用 近似 的 位 移 表 达 式 完成 积分 . 即 计算 单元 质量 矩阵 
M' =| pN' NàV 、 单 元 刚度 矩阵 "= | B'DBàV 、 单 元 阻尼 矩阵 C* = [4NTNdV 、 
单元 节点 载荷 向 量 严 = | NT füv + |. N'Tas. 
(3) 将 所 有 区 域 的 积分 结果 求 和 . 即 组 装 系统 整体 刚度 矩阵 下 = 5^ K* ЖОЖДОР: 
M-YM' 、 整 体 阻尼 和 矩阵 C = Y C Ruf Ue RATA P= PP. 
(4) 引入 位 移 边 界 条 件 . 
(5) 求解 系统 方程. 
相应 的 有 限 元 程序 也 可 以 分 为 以 下 几 部 分 . 


1.3.1 ”前 处 理 部 分 


在 这 一 部 分 程序 中 通过 定义 相应 变量 来 建立 模型 、 划 分 单元 ， 并 对 各 变量 进行 说 明 . 
虽然 MATLAB 中 的 变量 不 需要 定义 就 可 以 使 用 ， 但 是 建议 通过 变量 赋 初 值 的 方法 在 程序 
前 部 统一 建立 各 变量 并 加 以 说 明 ， 这 样 将 有 助 于 提高 程序 的 可 读 性 . 
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作为 有 限 元 程序 的 前 处 理 部 分 ， 如 果 要 求实 现 互动 化 和 智能 化 ， 需 要 建立 模型 和 划分 
单元 ， 其 中 单元 划分 将 会 是 一 个 复杂 的 问题 . 例如 单元 划分 需要 根据 所 选择 单元 类 型 的 特 
点 和 结构 本 身 的 几何 特征 综合 进行 考虑 ， 才 能 得 到 好 的 计算 结果 . 能 适用 于 各 种 几何 特征 
结构 的 通用 型 高 质量 单元 网 格 划分 程序 是 很 难 编写 的 . 早期 的 一 些 动力 学 有 限 元 专著 中 对 
这 一 部 分 有 较 详 细 的 论述 ， 但 现在 无 论 是 在 结构 建 模 还 是 在 单元 划分 方面 ， 都 有 了 可 靠 而 
成 熟 的 商用 软件 ， 而 且 当 前 使 用 MATLAB 编程 进行 有 限 元 分 析 的 读者 一 般 并 不 是 要 进行 
实际 工程 问题 的 分 析 ， 而 是 为 了 进行 理论 探索 和 验证 . 此 时 使 用 几何 特征 简单 的 模型 来 完 
成 研究 工作 ， 不 但 可 以 减少 不 必要 的 计算 工作 量 ， 而 且 也 有 利于 突出 问题 本 质 . 这 样 问题 
就 相对 简单 ， 可 以 略 过 结构 模型 建立 ， 使 用 手动 输入 各 单元 节点 坐标 变量 的 方法 来 完成 单 
元 划分 ， 其 工作 任务 量 也 可 以 接受 . 所 以 建议 使 用 MATLAB 编程 进行 有 限 元 分 析 的 读者 
不 要 把 精力 花 在 追求 互动 的 结构 模型 建立 和 自动 网 格 划分 算法 上 . 如 果 那 样 ， 还 不 如 直接 
使 用 现成 而 且 可 靠 的 各 种 商业 化 有 限 元 软件 ， 如 ANSYS 等 . 
在 程序 中 需要 使 用 哪些 变量 来 完成 对 问题 的 描述 ， 是 数据 结构 问题 . 合理 的 数据 结 
构 ， 即 进行 合理 的 变量 设计 ， 可 以 使 程序 更 加 简洁 . 同一 个 问题 可 以 有 不 同 的 算法 ， 而 即 
使 同一 问题 同一 算法 ， 在 变量 设计 上 也 可 以 有 不 同 的 地 方 . 所 以 在 这 里 作为 示范 给 出 的 例 
子 仅 供 参考 ， 读 者 也 可 以 根据 自己 所 研究 的 问题 的 特点 进行 相应 的 变量 设计 . 
可 以 通过 以 下 变量 来 描述 结构 模型 . 
* node number: 结构 的 节点 总 数 . 
element_number: 结构 的 单元 总 数 . 
structural_displacement_number: 结构 位 移 总 数 . 
element, displacement number: 单元 位 移 数 . 
node coordinate: 节点 坐标 数组 . node_coordinate(1,1) 表 示 第 I 个 节点 的 x ABR, 
node_coordinate(L2) 表 示 其 y 坐标 ， 而 node_coordinate(L3) 表 示 其 z 坐标 . 
© element node: 单元 节点 编码 数组 . element_node(Ln) 表 示 第 I 个 单元 的 第 п 个 节 
点 编号 . 
为 求解 有 限 元 问题 定义 以 下 变量 . 
* element_stiffness_matrix: 单元 刚度 矩阵 数组 ， 存 储 结构 全 部 单元 的 单元 刚度 矩 
ВЕ. element_stiffness_matrix(I,m,n) 表 示 第 I 个 单元 的 单元 刚度 矩阵 中 的 第 m 47, 
Ж n 列 的 元 素 . 
element mass matrix: 单元 质量 矩阵 数组 . 维 数 同 单元 刚度 矩阵 数组 . 
element damping matrix: 单元 阻尼 矩阵 数组 . 维 数 同 单元 刚度 矩阵 数组 . 
element load vector: 单元 载荷 向 量 数组 .element_ load_vector(Lm) 表 示 第 工 个 单元 
Ж n 个 位 移 方向 上 的 载荷 . 
ө structural stiffness matrix: 整体 刚度 矩阵 数组 .structural_stiffness_matrix(m,n) 表 
示 系 统 整 体 刚度 矩阵 中 的 第 m 行 ， 第 n 列 的 元 素 . 
© structural_mass_matrix: 系统 整体 质量 矩阵 数组 . 
* structural damping matrix: 系统 整体 阻尼 和 矩阵 数组 . 
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€ structural load vector: 系统 整体 载荷 向 量 数组 . structural_ load_vector(n) 表 示 系 统 
第 n 个 位 移 方向 上 的 载荷 

е Eigenvalue: 特征 值 数 组 . 

ө  Eigenvector: 特征 向 量 数 组 . 

此 外 ， 还 需要 定义 结构 材料 属性 等 变量 以 及 一 些 循环 变量 ， 这 里 不 再 详 述 


13.2 计算 各 单元 矩阵 和 单元 节点 载荷 向 量 


计算 各 单元 矩阵 和 所 选择 的 单元 类 型 直接 相关 ， 这 里 将 简要 介绍 其 基本 特点 ， 在 后 面 
章节 将 会 详细 介绍 对 于 各 种 常见 单元 类 型 ， 如 何 计算 其 刚度 、 质 量 和 阻尼 矩阵 ， 并 计算 相 
应 单元 的 节点 载荷 向 量 . 


1. 单元 刚度 矩阵 
在 12 节 中 已 经 推导 得 到 单元 刚度 矩阵 计算 表达 式 为 下" = | B'DBdV ， 其 一 般 计算 


过 程 为 : 

(1) 建立 单元 坐标 系 . 虽然 可 以 在 结构 整体 坐标 系 中 完成 单元 刚度 矩阵 的 计算 ， 但 是 
为 了 更 方便 地 寻找 试探 函数 和 进行 积分 ， 一 般 是 根据 单元 的 形状 来 建立 合适 的 单元 坐标 系 . 
这 样 求 出 的 单元 刚度 矩阵 在 应 用 到 后 面 组 装 成 整体 刚度 矩阵 的 过 程 之 前 ， 先 要 进行 坐标 变 
化 ， 成 为 结构 整体 坐标 系 下 的 单元 刚度 矩阵 . 虽然 增加 了 这 个 过 程 ， 不 过 一 般 来 看 ， 在 计 
算 单 元 刚度 矩阵 的 过 程 中 采用 单元 坐标 系 在 总 体 工 作 量 上 还 是 有 优势 的 . 

(2) 选择 合适 的 试探 函数 . 这 个 问题 归结 为 寻找 合适 的 位 移 函 数 表达 式 . 一 般 选 用 各 
节点 位 移 的 插值 函数 作为 单元 内 的 位 移 函 数 表达 式 ， 此 时 需要 选择 合适 的 形 函数 . 

(3) 按照 KR* = JB DBAV 完成 积分 ， 得 到 单元 刚度 矩阵 . 

现在 为 了 更 好 地 理解 单元 刚度 矩阵 的 物理 意义 ， 可 以 利用 最 小 位 能 原理 建立 一 个 单元 
的 平衡 方程 ， 得 到 

К'а'=Р (1-62) 
式 中 ，P 是 单元 节点 载荷 ， 当 然 也 包括 其 他 相 邻 单元 对 该 单元 的 作用 力 ，P* 中 的 载荷 排 
列 顺序 与 a* 中 各 节点 位 移 的 顺序 保持 一 致 . 例如 
asju ym ú w w е]. P=[P, В, Р, B. P, Bo] 
(1-63) 


P, 
215 (1-64) 


由 此 可 见 ， 单 元 刚度 矩阵 第 1 列 元 素 的 物理 意义 是 : 74 1 号 节点 的 1 号 位 移 方向 上 有 
单位 位 移 ， 而 其 他 节点 位 移 全 为 零 时 ， 需 要 在 单元 各 节点 位 移 方向 上 施加 的 节点 力 的 大 小 . 
相应 地 也 可 以 得 到 其 他 列 元 素 的 物理 意义 . 因此 单元 刚度 矩阵 中 任 一 元 素 , 的 物理 意义 


Фиш =1，a* 中 其 他 元 素 为 零 ， 则 得 到 
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为 : 当 单元 的 第 7 个 节点 位 移 为 单位 位 移 而 其 他 节点 位 移 为 零 时 ， 和 需要 在 单元 第 i 个 节点 
上 施加 的 节点 力 的 大 小 . 单元 刚性 大 ， 则 使 节点 产生 单位 位 移 所 需要 施加 的 节点 力 就 大 ， 
因此 单元 刚度 矩阵 中 的 每 个 元 素 反 应 了 单元 刚性 的 大 小 ， 称 为 刚度 系数 
从 其 物理 意义 ， 可 以 推 得 单元 刚度 甜 阵 的 3 个 特性 
° HFE: 根据 材料 力学 中 的 位 移 互 等 定理 ， 可 以 证 明 单元 刚度 矩阵 具有 对 称 性 
Wk, =ky. 
° 奇异 性 ;单元 处 于 平衡 时 ， 节 点 力 相 互 不 是 独立 的 ， 它 们 必须 满足 单元 平衡 方 
程 ， 因 此 它们 是 线性 相关 的 . 另 一 方面 ， 即 使 给 定 满足 平衡 条 件 的 单元 节点 力 
P*， 也 不 能 确定 单元 节点 位 移 a*， 因 为 单元 还 可 以 有 任意 的 刚体 位 移 
° 主 元 恒 正 ， 即 > 0， 根 据 其 物理 意义 ，k, 是 结构 第 i 个 节点 且 有 单元 位 移 
而 其 他 节点 位 移 全 为 零 时 ， 在 第 i 个 节点 方向 上 所 需要 施加 的 节点 力 ， 此 节点 力 
自然 不 能 为 零 ， 或 者 为 负 值 (与 位 移 方向 相反 ). 


2. 单元 质量 矩阵 
在 1.2 节 中 推导 得 到 的 单元 质量 矩阵 M° = | .PNTNd 太 称 为 协调 质量 矩阵 或 一 致 质量 


矩阵， 这 是 因为 导出 它 和 导出 单元 刚度 矩阵 所 依据 的 原理 及 采用 的 位 移 插值 函数 是 一 臻 
的 ， 同 时 质量 分 布 也 是 按照 实际 分 布 情况 考虑 的 . 除 此 之 外 ， 还 可 以 采用 集中 (团聚 ) 质 量 
矩阵， 这 种 质量 矩阵 是 简单 地 假定 单元 的 质量 是 集中 在 节点 上 ， 而 得 到 对 角 线 型 矩阵 

上 述 两 种 质量 矩阵 在 实际 工程 中 都 可 以 应 用 . 一 般 情 况 下 ， 两 者 所 得 结果 也 相近 . 单 
元 刚度 矩阵 积分 表达 式 的 被 积 函数 是 插值 函数 的 导数 的 平方 项 ， 而 一 致 质量 矩阵 的 积分 表 
达 式 中 的 被 积 函数 是 插值 函数 的 平方 项 ， 因 此 在 相同 精度 要 求 下 ， 质 量 矩 阵 可 以 用 较 低 阶 
的 插值 函数 ， 而 集中 质量 矩阵 从 本 质 上 看 ， 正 是 这 样 一 种 替换 方案 , 采用 集中 质量 矩阵 的 
优点 是 质量 矩阵 是 对 角 和 矩阵， 可 以 在 后 面 的 求解 过 程 中 使 计算 得 到 简化 . 此 外 ， 对 于 节点 
参数 中 包含 转动 的 单元 类 型 ， 由 于 可 以 在 集中 质量 矩阵 中 略 去 转动 项 ， 如 采用 显 式 直 接 积 
分 方法 求解 运动 方程 ， 还 可 以 使 方程 的 自由 度 进一步 减少 . 采取 集中 质量 矩阵 的 困难 是 对 
于 高 次 单元 如 何 将 单元 的 质量 分 配 到 各 个 节点 上 . 


3. 单元 阻尼 矩阵 
基于 和 协调 质量 矩阵 相同 的 理由 ， 称 C* = | им" NaV. 为 协调 阻尼 矩阵 . 它 是 假定 阻 


尼 力 正比 于 质点 运动 速度 的 结果 ， 通 常 将 介质 阻尼 简化 为 这 种 情况 ， 这 时 单元 阻尼 矩阵 比 
例 于 单元 质量 矩阵 
除 此 之 外 ， 还 有 比例 于 应 变速 度 的 阻尼 ， 例 如 由 材料 内 部 摩擦 引起 的 结构 阻尼 通常 可 
以 简化 为 这 种 情况 ， 这 时 阻尼 力 可 以 表示 为 wDE ， 这 样 得 到 的 单元 阻尼 矩阵 为 
С" = u | BTDBdF (1-65) 
此 单元 阻尼 矩阵 比例 于 单元 刚度 矩阵 


由 于 系统 的 固有 振 型 对 于 整体 刚度 矩阵 下 和 质量 矩阵 M 具有 正 交 性 ， 因 此 固有 振 弄 
对 于 比例 于 整体 刚度 矩阵 和 质量 矩阵 的 阻尼 矩阵 也 是 具有 正 交 性 的 ， 所 有 这 种 阻尼 矩阵 称 
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为 比例 阻尼 或 者 振 型 阻尼 . 可 以 在 后 面 的 求解 过 程 中 利用 振 型 矩阵 将 阻尼 矩阵 对 角 化 ， 为 
计算 带 来 很 大 的 方便 . 
一 般 情况 下 ， 比 例 系 数 是 依赖 于 频率 的 . 因此 在 实际 分 析 中 ， 要 精确 地 测定 阻尼 和 矩阵 
是 相当 困难 的 . 通常 将 实际 结构 的 阻尼 矩阵 简化 为 整体 刚度 矩阵 和 质量 矩阵 的 线性 组 合 ， 
BI 
i C=aM+ßpK (1-66) 
SUP a, B 是 不 依赖 于 频率 的 常数 ， 这 种 振 型 阻尼 称 为 Rayleigh HUE. 


4. 单元 节点 载荷 向 量 


在 前 面 已 经 给 出 了 计算 单元 节点 载荷 向 量 的 一 般 公式 : 
P= [| NT йу + 上 Fas (1-67) 
如 果 单 元 边界 力 示 是 分 布 边界 力 ， 则 代入 式 (1-67) 进 行 计算 ， 如 果 单 元 边界 力 是 集中 
载荷 ， 则 无 须 再 将 其 等 效 为 单元 节点 载荷 . 可 以 调整 单元 网 格 ， 使 得 集中 载荷 作用 的 位 置 
正好 是 一 个 单元 节点 ， 然 后 在 单元 节点 载荷 向 量 这 一 部 分 可 以 先 不 必 考 虑 该 集中 载荷 ， 而 
是 根据 其 所 作用 的 节点 编号 和 与 其 方向 相同 的 节点 位 移 方向 编号 ， 将 其 直接 受 加 到 系统 整 
体 节 点 载荷 向 量 中 去 . 


13.3 ”系统 整体 刚度 、 质 量 、 阻 尼 和 矩阵 和 节点 载荷 向 量 


系统 整体 刚度 、 质 量 、 阻 尼 矩 阵 和 节点 载荷 向 量 是 由 相应 的 单元 矩阵 组 装 而 成 的 ， 其 
组 装 过 程 是 按照 单元 位 移 编号 和 系统 整体 位 移 编号 的 关系 来 进行 的 . 下 面 以 整体 刚度 矩阵 
的 组 装 过 程 为 例 来 说 明 这 一 过 程 . 

在 推导 得 出 单元 刚度 矩阵 表达 式 K* = | B'DBàV 时 ， 首 先 在 式 (1-59) 中 对 单元 各 节点 
位 移 进行 了 排序 编号 ， 因 此 单元 刚度 矩阵 中 的 元 素 排列 是 和 节点 位 移 编号 顺序 直接 相关 的 . 
在 将 单元 刚度 矩阵 组 装 成 整体 刚度 矩阵 的 过 程 中 也 要 根据 这 一 对 应 关系 来 进行 . 如 果 在 建 
立 单元 刚度 矩阵 过 程 中 使 用 了 单元 坐标 系 ， 那 么 在 组 装 之 前 ， 还 需要 根据 单元 坐标 和 系统 
坐标 间 的 关系 ， 对 单元 刚度 矩阵 进行 转换 ， 得 到 在 系统 坐标 系 下 的 单元 刚度 矩阵 ， 然 后 才 
可 以 进行 组 装 . 这 一 转换 过 程 可 以 表示 为 

K'-rTKT (1-68) 

式 中 :天 "为 系统 坐标 系 下 的 单元 刚度 和 矩阵， 天" 为 单元 坐标 系 下 的 单元 刚度 矩阵 ，7 A 
标 转换 矩阵 . 如 果 在 建立 单元 刚度 矩阵 的 过 程 中 没有 使 用 单元 坐标 系 ， 则 不 需要 这 个 过 程 . 

车 在 单元 位 移 中 的 编号 为 1 的 单元 的 节点 位 移 在 系统 位 移 中 编号 为 i， 单 元 位 移 中 的 
编号 为 2 的 单元 的 节点 位 移 在 系统 位 移 中 编号 为 j,，…… ， 则 单元 刚度 矩阵 中 的 元 素 石 应 
该 被 登 加 到 整体 刚度 矩阵 中 的 元 素 恕 E, ПЕ, WARME А, 上 ， 其 他 元 素 都 可 以 按照 编 
号 对 应 关系 ， 依 次 类 推 ， 倒 加 到 整体 刚度 矩阵 中 去 . 

在 MATLAB 中 可 以 通过 如 下 代码 实现 由 系统 坐标 系 下 的 单元 刚度 矩阵 组 装 系统 整体 
刚度 矩阵 的 过 程 : 
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% ssm: structural stiffness matrix 
% езт: element stiffness matrix 
% e2s: index of transform the element displament number to structural 
displament number 
for es=1:element_number 
% es(element serial) is the loop variable. 
for ers-l:element displacement number 
* ers is the row serial of element stiffness matrix. 
for ecs-l:element displacement number 
$ ecs is the column serial of element stiffness matrix. 


ssm(e2s(es,ers), e2s(es,ecs))-ssm(e2s(es,ers), e2s(es,ecs)) 
*esm(es,ers,ecs); 
end 
end 
end 


包括 从 单元 坐标 系 到 系统 坐标 系 的 转换 过 程 在 内 ， 整 体质 量 矩 阵 和 阻尼 矩阵 的 组 装 过 
程 与 整体 刚度 矩阵 组 装 过 程 相同 ， 所 以 可 以 集中 在 一 个 循环 中 解决 . 整体 载荷 向 量 组 装 的 
思想 与 整体 刚度 矩阵 的 组 装 思想 相同 ， 只 是 要 注意 整体 载荷 向 量 是 向 量 ， 用 一 维 数组 存 
储 ， 所 以 不 需要 进行 二 重 循环 . 因此 可 以 在 上 面 的 MATLAB 代码 中 添加 少数 语句 ， 再 同 
时 实现 整体 质量 和 矩阵、 阻尼 矩阵 和 载荷 向 量 的 组 装 . 


% ssm: structural stiffness matrix 

% езт: element stiffness matrix 

% e2s: index of transforming the element displament number to structural 
displament number 

smm: structural_mass_matrix 

emm: element_mass_matrix 

sdm: structural damping matrix 

edm: element damping matrix 

slv: structural load vector 

elv: element load vector 


e e wwe 


for es-l:element number 
for ers-l:element displacement number 
for ecs-l:element displacement number 
ssm(e2s(es,ers), e2s(es,ecs))-ssm(e2s(es,ers), e2s(es,ecs)) 
*esm(es,ers,ecs); 
smm (е23 (es, ers) ,e2s (es, ecs) ) -smm (e2s (es, ers) ,e2s (es, ecs) ) 
*emm(es,ers,ecs); 
зап (е25 (ез,егз),е25 (ез,есз)) -sdm(e2s (es,ers),e2s (es, ecs) ) 
*edm (es, ers,ecs); 
end 
slv(e2s(es,ers))=slv (e2s(es,ers))*elv(es,ers); 
end 
end 


在 完成 组 装 过 程 ， 得 到 结构 整体 矩阵 之 后 ， 通 过 对 其 特性 的 研究 ， 能 够 帮助 减少 整个 
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求解 过 程 的 计算 量 和 所 需 的 计算 机 存储 空间 . 下 面 以 结构 整体 刚度 矩阵 为 例 进 行 说 明 . 

结构 整体 刚度 矩阵 是 由 单元 刚度 矩阵 组 装 而 成 的 ， 因 此 与 单元 刚度 矩阵 有 类 似 的 物理 
意义 ， 其 主要 性 质 介绍 如 下 - 

(1) 对 称 性 ， 源 于 单元 刚度 矩阵 的 对 称 性 . 

(2) 带 状 特性 : 在 连续 体 离散 为 有 限 个 单元 后 ， 每 个 节点 的 相关 单元 只 是 围绕 在 该 单 
元 周围 为 数 不 多 的 几 个 ， 一 个 节点 通过 相关 单元 与 之 发 生 关 系 的 相关 节点 也 只 是 它 周围 的 
少数 几 个 ， 这 样 根据 整 体 刚 度 矩阵 元 素 的 物理 意义 ， 为 了 在 结构 某 个 节点 位 移 方向 上 有 单 
位 位 移 而 结构 其 他 节点 位 移 方向 上 位 移 全 为 零 ， 只 需要 在 该 节点 和 其 周围 关联 节点 上 施加 
力 就 可 以 了 ， 其 余 无 关节 点 上 并 不 需要 有 节点 力 ， 且 无 关节 点 一 定 是 绝 大 多 数 ， 这 样 在 每 
一 列 元 素 中 都 是 零 元 素 占 多 数 . 因此 虽然 结构 总 单元 数 和 节点 数 很 多 ， 结 构 整体 刚度 阶 数 
很 高 ， 但 刚度 系数 中 非 零 元 素 却 很 少 ， 因 此 只 要 节点 编号 是 合理 的 ， 也 就 是 说 相 邻 节点 间 
的 编号 不 要 相差 过 远 ， 这 些 稀疏 的 非 零 元 素 将 集中 在 以 主 对 角 线 为 中 心 的 一 条 带 状 区 域 
内 ， 即 具有 带 状 分 布 的 特点 . 

(з) 稀疏 ， 如 上 所 述 ， 在 整体 刚度 矩阵 中 应 是 非 零 元 素 占 多 数 ， 所 以 具有 稀 玻 的 特性 . 

在 得 到 整体 刚度 矩阵 后 ， 可 以 通过 使 用 spy 函数 来 观察 其 中 非 零 元 素 的 分 布 ， 以 此 来 
验证 上 述 结论 . spy 函数 通过 将 二 维和 矩阵 转换 为 一 个 平面 图 形 来 形象 地 显示 其 中 的 非 零 元 素 
分 布 : 在 图 形 中 非 零 元 素 将 在 其 对 应 的 位 置 上 绘制 一 个 点 ， 而 零 元 素 所 对 应 的 位 置 则 留 作 
空白 , 如 在 MATLAB 命令 窗口 中 输入 : spy(K). 其 中 K 是 准备 进行 观察 的 整体 刚度 矩 
阵 ， 将 得 到 如 图 1.1 所 示 的 图 形 . 
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1.1 整体 刚度 矩阵 非 零 元 素 分 布 图 
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可 以 看 出 在 这 个 330 阶 的 矩阵 中 ， 非 零 元 素 呈 对 称 带 状 分 布 ， 且 在 全 部 
108 900(330x330) 个 元 素 中 ， 只 有 5 018 个 非 零 元 素 (图 1.1 中 nz 表示 非 零 元 素数 目 )， 仅 为 
元 素 总 数 的 4.61%. 随 着 自由 度 阶 数 的 增加 ， 这 一 比例 一 般 还 会 更 低 . 

整体 刚度 矩阵 的 这 些 特性 ， 可 以 被 用 来 节约 存储 整体 刚度 矩阵 所 需要 的 空间 . 如 利用 
带 状 和 稀疏 特性 ， 可 以 只 存储 矩阵 中 的 非 零 元 素 . 进一步 利用 对 称 性 ， 可 以 只 存储 矩阵 非 
零 元 素 中 的 一 半 . 这 样 的 存储 方法 可 以 极 大 地 减少 所 需 的 存储 空间 ， 不 利之 处 是 增加 了 编 
写 程序 的 难度 . 但 是 在 MATLAB 中 ， 却 可 以 方便 地 使 用 稀 朴 矩阵 来 存储 此 类 和 矩阵. 只 要 
预先 定义 了 矩阵 变量 为 稀 朴 矩阵 ， 在 MATLAB 中 可 以 不 用 去 了 解 稀疏 矩阵 具体 是 如 何 存 
储 的 ， 而 是 直接 按照 常规 矩阵 的 使 用 方法 去 读 取 和 改变 稀 朴 矩阵 的 内 容 . 这 样 既 节 约 了 存 
储 空间 ， 又 不 带 来 程序 编写 的 困难 . 

类 似 地 ， 整 体质 量 矩 阵 和 整体 阻尼 矩阵 也 可 以 使 用 稀疏 矩阵 来 存储 . 


1.34 ”施加 位 移 约束 条 件 


在 通过 模型 离散 化 得 到 近似 场 函数 来 求解 弹性 动力 学 基本 方程 的 过 程 中 ， 所 选择 的 场 
函数 在 单元 内 部 满足 几何 方程 ， 因 此 在 由 离散 模型 近似 的 连续 体内 也 满足 几何 方程 . 但 是 
在 选择 场 函数 的 试探 函数 时 ， 并 没有 提出 在 边界 上 满足 位 移 边界 条 件 的 要 求 ， 因 此 必须 将 
这 个 条 件 引 入 有 限 元 方程 ， 使 之 得 到 满足 . 

在 有 限 元 方法 中 ， 几 何 边界 条 件 的 形式 通常 是 在 若干 个 节点 上 给 定 场 函数 的 值 (可 以 
是 零 值 ， 也 可 以 是 非 零 值 )， 即 

а,=й, (26.6.6) 

对 于 静 力学 问题 ， 求 解 位 移 场 问题 时 ， 至 少 要 提出 足以 约束 系统 刚体 位 移 的 几何 边界 

条 件 ， 以 消除 结构 整体 刚度 矩阵 的 奇异 性 ， 一 般 可 以 使 用 以 下 方法 来 施加 位 移 约束 条 件 . 


1. 直接 代入 法 
在 结构 动力 学 方程 中 将 已 知 节点 位 移 的 自由 度 消去 ， 得 到 一 组 修正 方程 ， 用 以 求解 其 
他 待定 的 节点 位 移 ， 其 原理 是 根据 已 知 和 待定 的 节点 位 移 重新 组 合 方程 ， 可 得 到 
K. K,|[«| _[Р, 
[£ РА) n 
XB: a, 为 待定 节点 位 移 ; а е, a-[z а, - a: 
KK KaK yP, P295 2 AB IS RU EAE БЕЯ 5) ЖЕП SR ВЕ. Н RURERE DE DURER 
性 可 知 K =K}. 
由 式 (1-69) 的 第 一 式 可 得 


Ка, + Koa, = P, (1-70) 
由 于 ws 为 已 知 ， 最 后 求解 方程 可 写 为 
Ka =P (1-71) 


其 中 
K'=K., а`=а,, P'=P,-K.a, 
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车 总 节点 位 移 为 n 个 ， 其 中 有 已 知 节点 位 移 m 个 ， 则 得 到 一 组 求解 п-т 个 待定 节点 
位 移 的 修正 方程 组 ，K' 为 nom 阶 方 阵 . 修正 方程 组 的 意义 是 在 原来 的 n 个 方程 中 ， 只 保 
留 与 待定 节点 位 移 相对 应 的 n-m 个 方程 ， 并 将 方程 中 左 端的 已 知 位 移 和 相应 刚度 系数 的 
乘积 (为 已 知 值 ) 移 至 方程 右 端 作为 载荷 修正 项 . 

如 果 已 知 节点 位 移 m 全 部 为 零 ， 那 么 可 以 直接 求解 Ka = Р,. 这 种 重新 组 合 方程 的 
做 法 可 以 降低 方程 阶 数 ， 但 是 在 组 合 过 程 中 ， 节 点 位 移 的 顺序 被 改变 ， 为 了 正确 理解 将 来 
的 计算 结果 ， 必 须 对 结果 进行 编号 “还 原 ”， 增 加 了 编程 的 复杂 程度 . 

2. 对 角 元 素 改 1 法 

如 果 已 知 节点 位 移 a, 全 部 为 零 ， 可 以 在 K 中 将 与 已 知 零 节点 位 移 相对 应 的 行列 中 的 
主 对 角 元 素 改 为 1， 其 他 元 素 改 为 0， 在 载荷 向 量 中 也 将 相应 的 元 素 改 为 0. 例如 ， 节 点 位 
移 中 的 第 /个 元 素 为 已 知 零 位 移 ， 那 么 应 将 下 中 的 第 у 行 和 第 j 列 元 素 除了 k; 改 为 1 之 
外 ， 其 他 全 部 改 为 0， 同 时 将 载荷 向 量 中 的 第 7 个 元 素 也 改 为 0. 

这 样 对 所 有 已 知 零 位 移 完成 相应 的 修改 ， 可 以 在 不 改变 原 方程 阶 数 和 节点 未 知 量 的 顺 
序 编号 的 情况 下 ， 简 单 地 引入 位 移 边界 条 件 ， 但 是 这 种 方法 只 能 用 于 给 定 零 位 移 . 

3. 对 角 元 素 乘 大 数 法 

如 节点 位 移 中 的 第 j 个 元 素 为 已 知 位 移 ， 其 值 为 a， 则 可 以 直接 对 乘 以 一 个 很 大 
的 数 a ( 量 级 可 以 取 10"”)， 并 将 载荷 向 量 中 的 第 j 个 元 素 替 换 为 gkja, 来 引入 位 移 边界 
条 件 . 

这 种 方法 对 零 值 和 非 零 值 的 给 定位 移 都 适用 ， 引 入 位 移 边 界 条 件 时 ， 也 不 改变 节点 位 
移 顺 序 . 对 总 自由 度 较 小 的 结构 可 以 考虑 这 种 方法 ， 而 对 总 自由 度 较 大 的 结构 ， 可 以 考虑 
采取 直接 代入 法 来 缩小 方程 阶 数 ， 以 节省 求解 时 间 . 

上 述 为 静 力 学 中 常用 的 3 种 引入 位 移 边界 条 件 的 方法 . 对 于 动力 学 问题 ， 求 解 系统 固 
有 频率 和 振 型 时 ， 可 以 不 施加 任何 约束 ， 这 样 计算 得 到 的 固有 频率 中 的 前 6 阶 应 该 是 接近 
于 零 的 数值 ， 对 应 于 系统 的 6 个 刚体 位 移 模 态 . 在 求解 响应 信号 时 ， 一 般 需 要 合适 的 约束 
以 保持 系统 不 至 于 在 该 激励 下 产生 刚体 位 移 . 由 于 动力 学 问题 的 计算 量 一 般 都 远 远大 于 相 
同 自由 度数 目的 静 力 学 问题 ， 因 此 能 够 降低 计算 量 的 方法 具有 更 加 重要 的 意义 . 所 以 在 动 
力学 问题 中 ， 一 般 都 采用 直接 代入 法 在 运动 方程 中 消去 约束 自由 度 . 在 编程 中 可 以 不 必 先 
完全 组 装 再 消去 约束 自由 度 ， 而 是 可 以 在 组 装 之 前 ， 就 先 对 系统 位 移 进行 重新 编号 ， 在 新 
的 编号 中 不 包括 被 约束 的 位 移 ， 然 后 按照 新 的 编号 完成 组 装 过 程 . 在 动力 学 问题 中 引入 不 
为 零 约束 的 方法 比较 复杂 ， 可 以 参考 子 结构 的 相关 方法 进行 . 


1.3.5 求解 


由 于 动力 学 有 限 元 问题 式 (1-61) 的 巨大 求解 计算 量 ， 相 应 的 求解 算法 研究 一 直 得 到 广 
泛 的 重视 . 根据 激励 的 不 同 ， 可 以 将 式 (1-61) 分 为 冲击 响应 、 谐 波 激励 响应 和 瞬 态 响应 ( 任 
意 激励 响应 ) 问 题 ， 其 中 每 一 种 问题 都 有 多 种 求解 算法 ， 而 且 动力 学 问题 并 不 仅仅 局 限于 
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求解 系统 响应 . 为 了 更 好 地 理解 系统 特性 ， 还 提出 了 各 种 系统 动力 学 特征 指标 ， 如 频率 、 
模 态 和 频 响 函 数 等 ， 在 计算 这 些 指标 方面 也 存在 着 众多 的 算法 . 因此 动力 学 问题 的 求解 部 
分 包含 的 内 容 非 常 广泛 . 在 经 典 有 限 元 著作 中 ， 往 往 有 相关 章节 对 各 种 算法 进行 介绍 . 现 
在 使 用 MATLAB 时 ， 可 以 不 必 对 算法 进行 深入 了 解 而 直接 通过 调用 相关 函数 来 完成 问题 
的 求解 . 这 样 不 但 有 利于 更 好 地 将 精力 集中 于 动力 学 问题 本 身 ， 而 且 MATLAB 中 的 函数 
也 比 读者 自己 编写 的 更 加 高 效 可 靠 . 基于 这 一 原因 ， 本 书 将 不 再 侧重 于 介绍 各 种 算法 的 数 
学 本 质 ， 而 是 主要 介绍 如 何 使 用 MATLAB 实现 各 种 算法 . 

瞬 态 响应 问题 是 实际 工程 和 研究 中 常见 的 一 种 问题 ， 且 可 以 将 冲击 响应 和 谐 波 激励 响 
应 问题 视 为 瞬 态 响应 问题 的 特例 ， 所 以 在 这 里 首先 以 瞬 态 响应 为 例 介 绍 在 MATLAB PR 
解 动力 学 问题 的 一 般 过 程 

对 式 (1-61)， 可 以 有 直接 积分 法 和 振 型 组 合法 两 种 方法 进行 求解 . 直接 积分 法 是 指 在 
积分 运动 方程 之 前 不 进行 方程 形式 的 变换 ， 而 直接 进行 逐步 数值 积分 . 振 型 组 合法 是 指 在 
积分 运动 方程 之 前 ， 利 用 系统 固有 振 型 ( 模 态 ) 的 关于 刚度 矩阵 和 质量 矩阵 的 正 交 性 对 方程 
组 进行 解 耦 ， 然 后 再 进行 解析 或 者 数值 积分 . 与 直接 积分 法 比较 ， 振 型 组 合法 的 缺点 是 不 
能 用 于 非 线性 问题 求解 ， 其 优点 主要 有 以 下 两 点 

(1) 积分 步 长 选择 上 的 优点 . 在 使 用 直接 积分 法 时 ， 为 了 保证 结果 的 精度 ， 积 分 步 长 
必须 保证 小 于 系统 中 最 高 频率 振 型 的 周期 . 而 完成 方程 解 看 后 ， 在 采用 数值 方法 时 ， 对 于 
每 个 方程 可 以 采取 不 同 的 时 间 步 长 ， 即 对 低 阶 振 型 可 以 采用 较 大 的 时 间 步 长 

(2) 可 以 只 求解 由 少数 模 态 组 成 的 响应 . 首先 在 实际 工程 问题 中 ， 由 于 结构 的 高 阶 模 
态 很 难 激 起 ， 所 以 一 般 情 况 下 结构 的 响应 主要 是 由 低 阶 模 态 振动 部 分 组 成 . 其 次 由 于 结构 
的 高 阶 模 态 振 型 比 低 阶 模 态 复杂 ， 而 有 限 元 求解 过 程 是 对 结构 进行 分 区 域 近 似 的 过 程 ， 所 
以 对 于 高 阶 模 态 ， 有 限 元 方法 的 精度 会 相对 较 低 . 综合 以 上 两 点 ， 在 一 般 的 研究 中 没有 必 
要 求解 出 响应 中 的 高 阶 模 态 部 分 ， 而 可 以 根据 问题 的 特点 只 求解 少数 几 阶 的 低 阶 模 态 ， 这 
样 在 精度 允许 的 条 件 下 ， 可 以 大 幅 地 减少 计算 量 

由 于 解 看 后 的 方程 组 中 ， 每 一 个 方程 都 含有 一 个 变量 ， 方 程 组 实际 上 是 由 多 个 不 相关 
的 方程 构成 . 戏 其 中 任意 一 个 都 可 以 单独 按照 单 自由 度 系统 受 激 振 动 的 方法 来 求解 

由 此 可 见 ， 对 于 自由 度数 目 较 多 ， 且 只 关心 少数 低 阶 模 态 响应 的 问题 ， 振 型 组 合法 在 
减少 计算 量 方面 ， 将 具有 很 大 的 优势 
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2.1 动力 特性 分 析 


211 ”矢量 迭代 法 


矢量 迭代 法 是 结构 动力 特性 分 析 中 经 常 使 用 的 方法 之 一 . 矢量 迭代 法 分 为 逆 迭 代 法 和 
正夫 代 法 两 种 . 逆 和 迭代 法 向 结构 的 最 低频 率 和 振 型 收敛， 而 正 迭 代 法 向 结构 的 最 高 频率 和 
RERA. 一 般 情况 下 ， 不 使 用 正和 迭代 法 ， 这 一 方面 是 因为 在 实际 工程 问题 中 所 感 兴趣 的 
是 系统 的 少数 低 特征 对 ， 另 一 方面 是 因为 以 结构 的 有 限 单元 离散 化 模型 为 基础 计算 结构 的 
高 特征 对 精度 很 差 . 在 具体 实施 矢量 选 代 法 时 ， 可 以 有 各 不 相同 的 具体 步骤 ， 但 它们 的 基 
本 思想 与 使 用 的 迭代 关系 式 是 相同 的 

首选 代 法 除了 求 最 小 特征 值 和 特征 向 量 外 ， 和 Gram-Schmidt( 格 拉 姆 - 施 密 特 ) 正 交 化 
过 程 相 结合 ， 可 用 来 求 取 最 低 的 几 阶 特征 对 . 对 于 第 了 阶 特征 对 的 求 取 ， 设 有 初始 向 量 
xO) SUI s = 1, 2,… 时 迁 代 公式 为 

Ki" = Mx? (2-1) 

清 型 ( 即 清理 模型 ) 是 求 取 了 最 小 特征 对 之 后 求 其 余 特征 对 时 所 必须 进行 的 一 步 ， 不 仅 
包括 特征 对 求 取 的 迭代 初始 向 量 与 前 7 了 -1 阶 特征 向 量 正 交 ， 且 每 次 迭代 过 程 中 都 要 进行 正 
交 化 处 理 ， 不 断 把 前 7-1 阶 特征 向 量 从 选 代 向 量 中 清除 掉 ， 因 为 由 于 实际 计算 的 误差 ， 在 
和 迭代 过 程 中 不 可 避免 地 会 产生 低 阶 特征 向 量 ， 迁 代 到 最 后 还 是 得 到 最 低 阶 的 特征 向 量 . 则 
Gram-Schmidt 正 交 化 过 程 如 下 


у Q2) 
其 中 » 
A =$ Mx), @-3) 
初始 向 量 选 得 好 与 坏 ， 对 选 代 的 效率 影响 极 大 ， 显然， 要 求 初始 向 量 选 得 尽 可 能 接近 
所 求 的 振 型 . 一 种 简单 的 选取 方法 是 ， 把 结构 简单 地 考虑 为 各 个 自由 度 是 互 不 耦合 的 ， 即 


K =diag[k, k, … ka) (2-4) 

М =diag[m, m, = m,] (2-5) 
相应 式 (2-4) 与 式 (2-5) 的 特征 方程 为 非 耦合 形式 

һб, Am (2=1,2,---, п) @-6) 


SUT A, =®,/т,,б,=1. ЖА NBI, Ж А, HER j 位 
一 般 选取 第 一 阶 初始 向 量 为 
Mx? =[m, ma om] (2-7) 
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取 第 j+1 阶 初始 向 量 为 
1 2 … i oe n 


мх" =[0 0 — ото — of (2-8) 
RMB (GEB Ht R F: 
选取 p 阶 初始 n 维 矢量 y (j =1, 2,--, p) 
对 于 j=1,2,…,p 进行 循环 
对 于 s=1,2,… 
WH кх 


Жу" 
I езү ye 
计算 近似 特征 值 А” = (ry m 
Ч (xt ^y ñ ) 
(9 
如 果 特 征 值 的 精度 满足 条 件 |2 2: <e, ШЕИ, ИИНЕНИН 


== 
x 


(eer 
Gram-Schmidt 正 交 化 ，z =x Уд, tb = d Mx. 
rad 


КАН АЛЫ ТИШНЕ ЛЫНЫН 
(ay x") 


$= 


212 子 空间 迭代 法 

子 空间 先 代 法 的 基本 思想 是 把 逆 和 迭代 法 和 Ritz 法 结合 起 来 ， 既 利用 Ritz 法 来 缩减 自 
由 度 ， 又 在 计算 过 程 中 利用 逆 迭 代 法 使 振 型 逐步 趋 近 其 精确 值 ， 由 于 它 吸 收 了 两 种 方法 的 
优点 ， 因 而 计算 效果 比较 好 . 经 验 表 明 ， 这 是 目前 求解 大 型 结构 自 振 频 率 和 振 型 的 最 有 效 
ле; 

对 于 nn 阶 实 对 称 和 矩阵 M ЫК, Ж {Кп 

KX, = MX, 0-9) 

RP: XQ 是 nxm 阶 矩阵 ， 且 m<n; X, & X, XT M 的 正 交 归 一 化 矩阵 . X, 的 正 交 归 
一 化 可 进行 如 下 : 借 变 换 X, ， 经 Ritz 缩聚 后 ， 有 


M,=XIMX,, К, = ХІКХ, (2-10) 
分 别 记 缩聚 系统 ( M, » K ) 的 特征 值 矩 阵 与 特征 矢量 矩阵 为 允 与 忆 ， 有 
К,Р, =М,РА (2-11) 


RP, ДАХИ, P, 是 关于 М, 的 正 归 一 化 矩阵 . 
故 在 下 一 步 迭 代 中 可 取 
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X, = x,P, (2-12) 

需要 指出 的 是 ， 在 子 空间 和 迭代 法 中 ， 初 始 向 量 的 选取 也 将 直接 影响 到 和 迭代 的 收敛 速度 . 
根据 经 验 和 实践 ， 按 如 下 方法 选取 是 比较 好 的 ， 即 初始 向 量 的 第 1 列 的 元 素 全 部 置 为 1， 
以 后 各 列 按 m,/k 中 的 大 小 排序 ， 分 别 在 该 顺序 对 应 的 位 置 上 置 m, ， 而 该 列 其 余 元 素 
皆 置 0， 其 中 k 即 是 指 第 个 元 素 最 大 . 

子 空间 和 迭代 法 的 基本 流程 如 下 : 

选 定 初始 向 量 

X, -[x" xP oe x] 
进行 迭代 运算 
Y, = МХ,, KX. =Y, 
进行 Ritz 方法 运算 
Хы = ХР, 
求解 新 的 降 阶 的 广义 特征 值 问题 
KP = М Р.А, 
RP, Mon 5X in MX pr Kon = XI KX... 
如 果 特 征 值 的 精度 满足 要 求 ， 则 终止 循环 . 计算 原 特征 值 问题 的 特征 值 和 特征 向 量 为 
АА. ХаРи 

MATLAB 提供 了 专门 的 函数 来 计算 矩阵 的 特征 值 ， 即 eig 和 eigs， 它 们 既 可 用 于 求解 
标准 特征 值 问题 ， 也 可 用 于 求解 广义 特征 值 问题 . 前 者 一 般 用 来 求解 维 数 较 小 的 全 部 特征 
值 ， 而 后 者 一 般 用 来 获取 大 型 特征 值 问题 的 某 几 个 特征 对 . 其 调用 格式 如 下 : 

E=eig(K, M) 

[V, D] = eig(K, М); 

[V, D] = eig(K, M, flag) flag ='chol' or 'qz' 

[V, D]=eigs(K, M, nummode, SIGMA) SIGMA-'SM' or LM' 
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2.2.1 数值 积分 法 


求解 结构 动力 学 方程 的 一 种 方法 是 直接 积分 法 . 常用 的 方法 有 中 心 差分 法 、Houbolt 
法 、Wilson -@ 法 和 Newmark 法 . 
直接 积分 法 的 基本 思路 是 指 在 相隔 Ar 的 一 些 离散 点 上 而 不 是 在 任何 时 刻 上 上 满足 运动 
方程 ， 并 且 在 每 一 个 时 间 区 域内 假定 位 移 、 速 度 和 加 速度 的 变化 规律 来 得 到 运动 方程 的 解 . 
对 于 有 限 元 法 建立 的 动力 学 方程 
MŠ+Có+K6= F (2-13) 
假定 在 时 间 ! = 0 时 的 位 移 品 HEE б, ЖП ó, BE SB. 
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1. 中 心 差分 法 
在 中 心 差分 法 中 ， 加 速度 和 速度 用 位 移 表示 为 
ë=. l 6. ó 4-5. 1 _ Ў 
ARS CAS 7" ) AP (Su -26, 6,4) Q-14) 
; __1 
$ =F C99) Q-15) 
将 式 (2-14) 和 式 (2-15) 代 入 式 (2-13)， 可 得 到 由 方程 + 时 刻 的 解 表示 的 位 移 
1 1 =F -(K-— муб -( LM- 3 
Gp M tzu Оё =F,-(K - TM, Gr M 7 za; 9 Q-16) 


在 开始 计算 时 ， 式 (2-16) 中 5_。 BRA A TG ЖЕ 6, AS, VETE. 由 式 (2-14)、 式 (2-15) 
和 式 (2-16)， 有 


ôy =5,- Мб, ER (2-17) 
Š, = M'(F, - Có, - Кб,) (2-18) 
中 心 差分 法 是 一 种 显 式 积分 格式 ， 算 法 是 条 件 稳定 的 ， 稳 定 条 件 为 
At <A, -2 (2-19) 
xU, T, 是 结构 系统 的 最 小 固有 振动 周期 . 
中 心 差分 法 的 计算 步骤 可 归结 如 下 . 


1) 初始 计算 
(1) 形成 刚度 矩阵 、 质 量 矩 阵 M 和 阻尼 矩阵 C . 
(2) 由 初始 条 件 而 和 忘 ， 计 算 成 . 

Š, =M"'(F,~Cé, - Kô,) 
(3) 选取 时 间 步 长 At ，At < At., ， 计 算 积分 常数 . 


: 
дм. ATIS А-1. а= 


2Ar 
(4) 计算 5 。. 
8 „=б,- AŠ, + Аф, 
(5) ИЯНЕ . 
М=АМ+АС 
2) 对 于 每 一 时 间 步 长 
(1) 计算 + 时 刻 的 有 效 载荷 向 量 天 . 
F =Е,-(К-2А,М)б, -(А,М - AC) 6,, 
(2) 求解 ++ Ar 时 刻 的 位 移 . 


(3) 计算 + 时 刻 的 加 速度 和 速度 . 
Ë = 4,8, „—26, + б) 
È = А(-б „+б) 
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2. Houbolt 法 
Houbolt 的 积分 格式 也 是 一 种 有 限 差 分 格式 ， 加 速度 和 速度 的 有 限 差分 展开 式 为 
8 „=- 08,, 758 +48, „-б ы) (2-20) 
Ar 
š 1 
=— - = 2-21 
Bs Gar == 186, + 96,_., —26, „) (2-21) 


在 t+At 时 刻 ， 式 (2-13) 可 表示 为 
А мд, +Сд,., +K, = Fie 0-22) 
将 式 (2-20) 和 式 (2-21) 代 入 式 (2-22)， 可 得 
(S m eden) PLI UAM (Sn * 2c) em e. 
Ar 6At ш Ar 
(м + 二 ja (2-23) 


在 式 (2-23) 中 ， 求 解 5, Со. 6, 85, ,,. 虽然 由 初始 条 件 可 知 页 、 负 和 态 ， 但 
是 5. 和 6 需要 用 其 他 计算 方法 确定 . 

Houbolt 法 是 一 种 隐 式 积分 格式 ， 算 法 是 无 条 件 稳定 的 . 

Houbolt 法 的 计算 步骤 可 归结 如 下 . 

1) 初始 计算 

(Т) 形成 刚度 矩阵 天、 质量 矩阵 M 和 阻尼 和 矩阵 С. 

D НАЛАЖЕ, Ad, VEA. 

6, =M"(F, - Có, - K6,) 
(3) 选取 时 间 步 长 At ， 计 算 积分 常数 . 
дем. AT ILS Ac 
(4) 用 其 他 方法 计算 5. 16... 
(5) 计算 有 效 刚度 矩阵 天 . 


1 1 
ar’ 


K=K+24,M+114,C 
2) 对 于 每 一 时 间 步 长 
(1) 计算 ++At 时 刻 的 有 效 载 茶 向量. 
Fs = Fv +[546, -4А,б, „+ Aó... ]M *[346, -9А,б, „+2А,б, „]С 
(2) RAEE + Ar 时 刻 的 位 移 . 


(3) 计算 ++Ar 时 刻 的 加 速度 和 速度 . 
б. = AG6.. ~ 58, +4б, - 8,25) 
д. = A016... -186 +96, „—26, „) 


3. Wilson -9 法 
Wilson- Ө 法 是 线性 加 速度 法 的 推广 . Wilson -9 法 假定 加 速度 从 时 刻 1 到 时 刻 1+ ӨЛ 为 
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线性 变化 ， 其 中 6 宇 1. 
若 令 时 间 增 量 为 r， 且 0 入 z 和 9Ar ， 则 由 线性 假设 ， 在 1 到 :+ Oar 的 时 间 区 间 内 ， 有 


A he Ius Ë) Q24) 
对 式 (2-24) 积 分 ， 得 
4, =å ао -&) (2-25) 
Su = P ay Gros д) (2-26) 
于 是 ， 在 时 刻 :+ At Ж 
„ ӨМ + " 
[PLA +5 Qeon *$) (2-27) 
Buon = +0016, + 708 (Q... +28) оз) 
联 解 式 (2-27) 和 式 (2-28)， 可 得 到 时 刻 1+ OAr 的 加 速度 和 速度 
po 2-6 = x -28 - 
as = gai eon 702 v^ 28) (2:29) 
- 05 ZUM Ў 
б. (бы 78) 7 26, 24 (2-30) 
同样 考察 在 时 刻 ! + OA 的 运动 方程 ， RUDIKA 
MB sou CÓ „+ Кб „= ES (2-31) 
ов -31)， 可 得 
(a : M+ ase) ae (m ey (orn) 
Oar aH өм 
6 
[> w+ 高 cj (2-32) 


由 式 (2-32) 求 解 出 位 移 8.ow ， 代 入 式 (2-29) 即 可 计算 记 , sw ， 再 代入 式 (2-24)、 式 (2-25) 
和 式 (2-26)， 并 令 r= Ar, ， 则 有 


4 3 
Onu = E Gat s -9)- 7a =Š, +@-28 (2-33) 
б. =ó +A + EOR -ğ) (2-34) 

u =ó +Ó At +— soar an- -6) (2-35) 


Wilson- Ө 法 是 一 种 隐 式 积分 方法 ，> NN 时 ， 该 算法 无 条 件 稳定 ， 通 常 计 算 时 取 
0=14. 

Wilson- 0 法 的 计算 步骤 可 归结 如 下 . 

1) 初始 计算 

(1) 形成 刚度 矩阵 下 、 质 量 矩 阵 M 和 阻尼 和 矩阵 C . 
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(2) BIRMA, WA. 
6, = M'(F, - Có, - Kó,) 
(3) 选取 时 间 步 长 At ， 计 算 积分 常数 ， 取 9 -14. 
PAL e = өм 
Алг’ ^79 2 
(4) 计算 有 效 刚度 矩阵 于 . 
K=K+AM+AC 
2) 对 于 每 一 时 间 步 长 
(1) Я + ӨЛ 时 刻 的 有 效 载荷 向 量 到 . 
Fox = Fass +146, +24,8, +28 М +[Aó, +26, + А, С 
(2) 求解 ++ OAr 时 刻 的 位 移 . 
-K'F, 


LM om 


(3) 计算 ++Ar нида. 速度 和 位 移 . 


бш =8,)— 25-6 10-36, 


8 


м 


=á +Z Fë 


hea + 


6... =ó, Aa M +28) 


4. Newmark 法 
Newmark 积分 格式 也 可 以 看 成 是 线性 加 速度 方法 的 推广 Newmark 法 所 采用 的 假设 为 
Á. =, +i- "iMi d m (2-36) 
6.4, =6, ємне -а)ё +aé „ЈА (2-37) 


式 中 ， экей ейнийжтаки ижи. x 当 w=1/6，B=1/2 时 ， 即 为 线 
性 加 速度 方法 . Newmark 法 取 w =1/4 ，B =1/2， 是 一 种 平均 加 速度 方法 . 


由 式 (2-36) 和 式 (2-37) 可 解 出 
1 


Е 1 x 
„Ты FTT — 6. 8) - G -1)$, (2-38) 
Š. =ó + (1- NN + мё, Q-39) 
将 式 (2-38) 和 式 (2-39) 代 入 时 刻 1 + At prem 
MÀ, , * Cà, -Fa 


29 DRE 


得 到 
1 
ЗАР 


Be = | p P yc 
Сал M ас + Ю®-= = Frew HGS -DM + F-20018, 


1 P nc 1 B 
"quM DC «CM +240), (2-40) 
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求解 式 (2-40) 得 到 6,。 , PiriztQ-38) Rt Q-39))4 5: Ë, y MS... 
Newmark 法 是 一 种 隐 式 积分 方法 ， 0 + BY Bt, 该 算法 无 条 
件 稳定 . 
Newmark 法 的 计算 步骤 可 归结 如 下 . 
1) 初始 计算 
(1) 形成 刚度 矩阵 下、 质量 矩阵 M 和 阻尼 和 矩阵 С. 
(2) HIRKA, HAS, 
Š, = M '(F,- Có, - Kô,) 
(3) 选取 时 间 步 长 At 和 参数 a 、 ， 计 算 积分 常数 . 
820.50, a2025(054 8) 


— =Й sal 
Аат’ 4 PM ам 
i- LAMB E B. 
A= Ge D 4-756 2, 4 GD 


(4) 计算 有 效 刚度 矩阵 天 . 
K=K+AM+AC 
2) 对 于 每 一 时 间 步 长 
(1) 计算 f+Ar "уланын 
К = Fu +146, + Aó, + A&)M +[А,б, + AÓ, + Аё ]C 
(2) Rt +A икан. 
=K" 


Ë 


(3) 计算 1+At 时 刻 的 加 速度 、 am 


s _ 1 "o 
Р) Lå- -DË 


Á. =ó +1- Byard, + Abe, 
5. 状态 空间 法 
式 (2-13) 在 状态 空间 的 表达 式 为 N 
X=AX+B (2-41) 
其 中 
8 0 1 0 
х=}, а decr ol yr qE 
进一步 结合 系统 的 输出 方程 ， 系 统 方程 可 表示 为 
X=AX+B 
E: (2-43) 


控制 系统 最 常用 的 时 域 分 析 方 法 是 ， 当 输入 信号 为 单位 阶 跃 和 单位 脉冲 (冲击 ) 函 数 
时 ， 求 出 系统 的 输出 响应 ， 分 别称 为 单位 阶 跃 响应 和 单位 冲击 响应 . 在 MATLAB 中 ， 提 
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供 了 求解 连续 系统 的 单位 阶 跃 响应 函数 step0) 单 位 冲击 响应 函数 impulse0， 零 输入 响应 函 
数 initial0 及 任意 输入 下 的 仿真 函数 IsimQ. 
1) 阶 跃 响应 分 析 
控制 系统 工具 箱 中 给 出 了 stepO 函 数 来 直接 求解 线性 系统 的 阶 跃 响应 ， 其 调用 格式 为 
y=step(G, t): 变量 t 为 由 要 计算 点 所 在 时 刻 的 值 组 成 的 向 量 . 
Ly, t]-step(G): 时 间 向 量 t 由 系统 模型 G 自动 生成 . 
[y,b х]=зїер(С): 时 间 向 量 t 由 系统 模型 G 自动 生成 ， 并 得 出 状态 变量 响应 . 
step(G): 自动 绘制 系统 的 阶 跃 响应 曲线 . 
其 中 G 为 给 定 控制 系统 的 LTI 对 象 模型 . 
2) 脉冲 响应 分 析 
控制 系统 工具 箱 中 给 出 了 impulseO 函 数 来 直接 求解 线性 系统 的 脉冲 响应 ， 其 调用 格 
式 为 
y=impulse(G, t): 变量 t 为 由 要 计算 点 所 在 时 刻 的 值 组 成 的 向 量 . 
[y,t=impulse(G): 时 间 向 量 t 由 系统 模型 G 自动 生成 . 
[y, t, х]еітршѕе(О): 时 间 向 量 t 由 系统 模型 G 自动 生成 ， 并 得 出 状态 变量 响应 . 
impulse(G): 自动 绘制 系统 的 脉冲 响应 曲线 . 
3) 任意 输入 下 的 时 域 响应 分 析 
(Т) 零 输入 响应 ; 输入 u(t!)=0， 则 (1)=e*x(0). 
控制 系统 工具 箱 中 给 出 了 initial( ) 函 数 来 求 取 系统 的 零 输入 响应 ， 其 调用 格式 为 
y=initial(G, Х0) 
[y, t, x]=initial(G, X0) 
[y, t, x]=initial(G, ХО, t) 
其 中 Хо 为 系统 的 初始 状态 变量 . 
(2) 零 状态 响应 : 系统 的 初始 状态 x(0) = 0， wmis(t)= [е ?ви(гїг. 


控制 系统 工具 箱 中 给 出 了 lsim( ) 函 数 来 求 取 系统 的 零 状态 响应 ， 其 调用 格式 为 

y=lsim(G, u, t) 

Q) 一 般 响 应 . 

同样 ， 可 以 由 lsim0 函 数 求 得 既 有 输入 且 初 始 状态 不 为 零 的 情况 下 系统 的 响应 ， 其 调 
用 格式 为 

Ly, t, xj]=lsim(G, ut X0) 
其 中 要 求 t 是 一 个 间隔 均匀 的 时 间 值 列 向 量 ， 输 入 u 的 列 数 同 输入 变量 的 数目 相同 ， 行 数 
li] t 的 行 数 相同 , 状态 响应 用 x 返回 ， 它 有 n 列 ， 行 数 与 t 相同 . 


2.2.2 HB EE 
1. 无 阻尼 系统 的 动力 学 响应 
对 于 式 C2-13) 的 自由 振动 方程 为 
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Mó+Kó=0 
可 假设 其 解 的 形式 成 如 下 的 指数 形式 
GORT a 
At, é 和 分 别 为 运动 的 振 型 和 固有 频率 . 将 式 (2-45) 代 入 式 (2-44)， 可 得 
(OM+K)ge™ =0 
式 (2-46) 方 程 具有 非 平凡 解 的 条 件 是 (-w*[M]+[KDD 奇 异 ， 即 
|-o^ M + K|=|-2M+K|=0 
RP, A= 0°. 求解 式 (2-47) 可 得 n 个 特征 值 0?, 03, +++, 02 BURGE LE Ag, 
对 于 任意 两 个 特征 解 (@?,$) « (07,6). 2002-46), 有 
Ké=@ Mé, Ké =o) Mé 
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(2-44) 


(2-45) 


(2-46) 


(2-47) 


(2-48) 


上 述 方程 的 第 一 式 两 边 左 乘 办 , BRER Y JERIRASPE K 和 M 的 对 称 性 进行 转 


署 ， 得 
é'Ké=o'6' Mé, Kd - jd Md 
将 两 式 相 减 得 到 
(oj -OW M4 =0 
于 是 ， 可 得 到 振 型 关于 质量 矩阵 和 刚度 矩阵 的 正 交 性 


raal” G=)) 
d "es Gp 
NU (i=) 
en T zj) 
再 利用 振 型 关于 质量 矩阵 的 正则 化 ， 有 
ON G=p 
4 Má +} Gs j) 
EC =) 
бка ef Gs j) 
利用 特征 向 量 ， 可 以 定义 一 个 坐标 变换 
б=Фт 
其 中 
@=[é,é,--. 6] 
N= тп, 
分 别称 为 模 态 矩 阵 和 模 态 坐标 向 量 . 
将 式 (2-55) 代 入 相应 于 式 (2-13) 的 无 阻尼 方程 中 ， 可 得 
МФў+КФт=Е 


HERRERO, WA 
Ф'МФў +Ф'КФп-Ф'Е 
由 式 (2-53) 和 式 (2-54)， 式 (2-59) 变 为 


(2-49) 


(2-50) 


(2-51) 


(2-52) 


(2-53) 


(2-54) 


(2-55) 


(2-56) 


(2-57) 


(2-58) 


(2-59) 
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ў+0п=0 (2-60) 
其 中 
10° = іар[о? a) - e) О=Ф'Е Q-61) 
ARS Ya EIA PE AE BE AAAS HB. 
式 (2-59) 为 一 组 解 而 的 方程 组 ， 也 可 写 为 
Groin = f, i=l2,-,n (2-62) 


xU, ЛАОН i fr. 
对 于 式 (2-62) 的 解 可 由 Duhamel 积分 得 到 


n,(t) = ,0,) созор PLACE ot ud [sinat - (dc (2-63). 
o, o, ° 


当 激 励 力 f; 为 脉冲 、 阶 跃 和 简 谐 函数 时 ， 上 述 方程 中 的 卷 积 积分 可 直接 求 出 . 对 于 脉 
冲 激励 (1) = 6(1)，to = 0 ， 式 (2-63) 的 解 为 


m ) 


m(t) =7,(0) cos at 4 ——. sina +R, sin Ci 
O; 


Л 
对 于 阶 跃 激励 (0) = Е, t =0, x. 63) 的 解 为 


п0) = n{O)eosane + ) 


对 于 简 谐 激励 A) = Fy, cosot, ty = 0， R- n 
19 ) os 


snap - cos ot) 


7, (t) = n (0) cos vt + —— 


3 
RP, у= о/о. 

Ж Бї 2002-63) АТ ЖЕ 0,00) . 07,00) 可 由 原 坐 标 系 下 的 初始 条 件 变换 得 到 . 由 式 
(2-55)， 原 坐标 系 下 的 初始 条 件 可 表示 为 


б(0) = Фл(0), ÅO) = Ф(0) (2-64) 
因而 有 
n(0)=@'Mó(0), n(0)=@'MóŠ(0) (2-65) 
Мани ТУ НЗ, BA REEERE ТАЛУ, 
ба) = Prle) (2-66) 
或 
&@=2ду,® @=1,2,,п) (2-67) 


2. 有 阻尼 系统 的 动力 学 响应 
对 于 有 阻尼 的 结构 系统 ， 运 动 方程 为 
Мё+Сё+Кб=Е (2-68) 
式 中 ，C 为 阻尼 矩阵 . 
对 于 阻尼 力 正 比 于 结构 运动 速度 的 假设 ， 阻 尼 和 矩阵 的 计算 式 为 
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С° = f, cN" Này (2-69) 


RF, c 为 阻尼 系数 ， мж. 

结构 的 阻尼 一 般 是 难以 准确 确定 的 ， 实 际 应 用 中 常 以 实测 数据 由 振动 过 程 中 结构 系统 
的 能 量 消耗 来 给 出 阻尼 的 近似 值 ， 因 此 阻尼 矩阵 一 般 不 是 直接 计算 单元 的 阻尼 矩阵 ， 而 是 
直接 给 出 结构 的 总 体 阻 尼 矩 阵 . 实际 工程 结构 的 阻尼 多 是 较 小 的 数值 ， 一 般 采 用 线性 关系 

C=aM+ BK (2-70) 

称 为 比例 阻尼 或 Rayleigh 阻尼 . RH, a AB 为 常数 . 

比例 阻尼 的 优点 是 模 态 向 量 关 于 质量 矩阵 和 刚度 矩阵 的 正 交 性 对 于 比例 阻尼 仍 成 立 ， 
即 有 


BCH үбү (2-71) 
$/ Có, 为 一 对 角 矩 阵 . 
对 式 (2-68) 仍 用 模 态 矩阵 进行 变换 ， 方 程 变 为 
ў, +2E,0,9,+ On = f, i=12,-,n (2-72) 
其 中 
тС, 
а= oe (2-73) 
称 为 阻尼 比 . 
运用 Duhamel 积分 ， 式 (2-72) 的 解 为 
1) =n)" созо + il) Son) ели) e" singt 
J 
A eta sino, (t-r) f (r)dr - (2-74) 


式 中 ，w =wAVL- 锡 是 系统 的 有 阻尼 固有 频率 ，w; 是 系统 的 无 阻尼 固有 频率 ， 
对 于 脉冲 激励 f(t)= Fb)» to =0 ， 式 (2-74) 的 解 为 


Л@) = n (0)e "^" cosa,t + AQ + Eon O) smn sino, +1 рече singt 
o, Og 


对 于 阶 跃 激 励 f(1) = Fy,» „=0, ， 式 (2-74) 的 解 为 


П) =n,(0)e 7" созо + 900) + nO) sm зїп © 


9, 
Е, 0, i 
— (le coso,t - EO, «tot sin ол) 
о +в СЯ 


对 于 简 谐 激励 (1) = Fy, cos w(t 10), t, = 0 ， 式 (2-74) 的 解 为 


1,0) =n,(O)e*" cos ен + C9 * 910.70) (y Si) om sin ол 
о, 
-xe tor St cosy +osiny 


sin @,t + cosy cosa,t) + X cos(ot — v) 
СЯ 
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其 中 
= Fu : > W =arctan 22у. 

о Ja-ry +025) 1-7 
初始 条 件 仍 为 | 

1700) =@"M6(0), 700) =Ф"М5(0) 

系统 在 实际 坐标 系 下 的 响应 
50) =Фп() 

或 


= Ln) =L) 


23 FANART df 


231 比例 阻尼 系统 ( 实 模 态 分 析 ) 
对 式 (2-13) 两 边 进行 拉 氏 变换 得 
(Ms? +Cs + К)б(з)= F(s) (2-75) 
式 中 ，5(s) 和 FF(s) 分 别 为 6(1) 和 FF(1) 的 拉 氏 变换 . 
由 式 (2-75)， 得 、 


5(s)=H,(s)F(s) (2-76) 
AP, H,(s) 为 结构 的 位 移 传递 函数 矩阵 ， 其 表达 式 为 
H,(s)=(Ms? «Cs K)' (2-77) 
由 于 振 型 的 正 交 性 ， 有 
1-Ф'МФ 
diag(25) -6'C P (2-78) 


diag(w?)=0" КФ 
AH, diag RANK fade pr. 
由 式 (2-78) 得 
м=(Ф')'Ф' 
C=(0')'diag(2é0,)o" (2-79) 
K=(0")' diag(a?)o" 
将 式 (2-79) 代 入 式 (2-78) 得 
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н,()=[(Ф')' diag( +26,0,5+ 07) T 
= @diag(I/(s? +2505+07))Ф" (2-80) 
_< oor 
“Le +2Z Qs + O 
同样 ， 可 由 拉 氏 变换 性 质 得 结构 初 态 为 静止 时 的 结构 速度 和 加 速度 的 传递 函数 矩阵 分 
别 为 


pg 
A 3r casar Q-81) 
Hs)= 4 => ^ (2-82) 


TS +2205 +02 


Фз=јә(ј= IT) ， 可 得 结构 位 移 、 速 度 和 加 速度 的 频 响 函数 矩阵 分 别 为 


н.о) =н, (з), = Z= 0-83) 

HO) Ioh, аав e 
М -ohg 

H,(2)- н, (х), „= See _ (2-85) 


o; -a! + оо 
LS ST PR OE EP Е H (ш) 表示 9 A. p 点 位 移 响应 的 频 响 函数 ， 
其 表达 式 为 
H? (0)= k (2-86) 
位 移 频 响 函数 Н (o) 是 复 函数 ， 可 用 实 部 和 虑 部 表示 为 
а а 2500 
(02-0) «Q&ooy K -òY +02600) 


H? (о)= ўва, (2-87) 


23.2 ”一 般 阻尼 系统 ( 复 模 态 理论 ) 


一 般 情 况 下 ， 存 在 阻尼 力 与 速度 成 正比 的 粘性 阻尼 ， 假 定 阻尼 矩阵 仍然 是 对 称 阵 ， 但 
不 满足 比例 粘性 阻尼 . 在 构造 空间 中 描述 的 运动 微分 方程 移 到 所 谓 状态 空间 来 描述 的 想法 
成 为 寻求 状态 空间 中 构造 相应 的 模 态 空间 ， 使 方程 找到 解 耦 的 一 条 途径 . 对 于 式 (2-13)， 
若 阻 尼 矩 阵 不 能 对 角 化 ， 为 求解 这 一 方程 ， 可 引入 下 列 辅助 方程 : 
Mé-Mé=0 (2-88) 
将 式 (2-88) 与 式 (2-13) 联 立 ， 并 以 矩阵 形式 表示 ， 可 得 


[me о-и ass 
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ec 称 为 状态 向 量 . 
(2m) 
式 (2-89) 可 改写 为 
Ab + BS =F (2-90) 
式 (2-90) 称 为 状态 方程 ， 其 中 
см K 0 s [F 
= 3] [E 5] к-р) m 
考察 系统 式 (2-90) 的 自由 运动 时 ， 有 | 
i Aó+BŠ=0 (2-92) 
设 式 (2-92) 的 解 为 
6= We", = Phe” (2-93) 
将 式 (2-93) 代 入 式 (2-92)， 得 
(42+ B) ME 2-94) 
uM (2-94) 


求解 式 (2-94)， 可 得 27 个 复 特征 值 和 特征 向 量 ， 它 们 分 别 记 为 
As Ass Ans A Ans An 


对 第 r 阶 模 态 ， 有 
© [E p 
fer A feal | leet 


d ee 


不 难 证 明 ， 式 (2-92) 的 特征 向 量 罗 具有 关于 4 与 BB 的 加 权 正 交 性 ， 即 


or ep [а (079 
YAY = 
"o [0 (res) 
(2-95) 
NL (r=s) 
tt |o (res) 
对 全 部 模 态 而 言 ， 模 态 矩 阵 为 

АЧА 

Р 9; ] 


特征 矩阵 为 
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l: 外 а 2 (r=1,2,…,n) 
^ 
er" Zç] 


则 对 于 全 部 模 态 而 言 ， 正 交 性 条 件 可 由 下 式 表示 


Ф'АФ=4 - 
iag[a, … a, a; =a, ] 58 
"BO = diag[5 5, b; b; ] 
对 状态 向 量 5 用 复 模 态 坐标 进行 变换 ， 可 得 
s/s ir r |0 
8-5] VA vile ean 


RP, Q, O 为 复 模 态 坐标 


将 式 (2.97) 代 入 式 (2-90)， xum у, A ， 并 由 式 (2-96) 的 正 交 性 条 件 可 得 
a ra 
а, 2 b, о) [е j 
z HE Р e ies) (298) 
а, b 


对 于 第 r 阶 模 态 ， 可 写成 


j +Ьд,='РТЕ 
y equo (2-99) 
а; +9; - V7 F 
式 (2-99) 的 解 可 由 Duhamel 积分 求 得 
ve " 
q, = It + T few Е(с)аг (2-100) 
4 k + ей тР(г)аг (2-101) 


设 初始 状态 (+=0) 为 振动 平衡 位 置 ， 即 q。=4。=0， 则 系统 受 迫 振动 的 响应 向 量 可 


6 =¥0+¥'O -Y Vo + wq 


(2-102) 


үрт 


um 
[hw rac EE Terrar 
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对 式 (2-102) 两 边 做 拉 氏 变换 ， 得 
bre i Py? i 
ри а (2-103) 
因此 ， 传 递 函数 矩阵 为 
L AA 
но)- $ (t x 
则 系统 的 频 响 函 数 和 矩阵 为 
a 
H(o)- "M ПРЕ iy Z(io- Xj Кесе] (2-105) 
其 中 ，g 点 激励 、p 点 位 移 响 应 的 复 模 态 频 响 函 数 可 表达 为 


AA AA I 
H, (0)= its 209-2) re Р Z=) (2-106) 


(2-104) 


2.4 应 用 问题 与 MATLAB 程序 


241 结构 动力 特性 分 析 
【 例 2.1】 平面 61 FHAR, dull 2.1 所 示 . 

SR 

XXX 多 xx 
11 13 15 17 19 
图 2.1 et enm 

平面 61 ЖЕНЫ ВЕНЕ: ЖЕНШ E =2.1x10"Pa, ЖЕЛЕ p = 7300kg/m’, 
所 有 单元 的 横 截 面积 为 1x10*m? ， 分 别 采用 3 种 方法 计算 结构 的 前 9 阶 频 率 : 矢量 迭代 
法 、 子 空间 先 代 法 和 MATLAB 提供 的 函数 eigs. 用 MATLAB 编程 计算 ， 其 中 主要 用 到 
ff] MATLAB 函数 ( 见 2.4.4 节 ) 有 : 

© Inviter(om,p,epsilon) 一 一 用 矢量 迭代 法 计算 结构 的 特征 值 和 特征 向 量 . 


© Ssiter(cum,p,epsilon) 一 一 用 子 空间 和 迭代 法 计算 结构 的 特征 值 和 特征 向 量 . 
M 文件 如 下 : 


P 


$ To compute the first nine eigenvalues of plane 61-bar truss 
% 

Е=2.1е11; 

А=1е-4; 
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density=7.3e3; 
node_number=26; 
element_number=61; 
nc=zeros (26,2); 
nc(1,1)70;nc(1,2)-0; 
пс(2,1)=0;пс(2,2)=1; 


for ig=1:12 
for jg=1:2 
nc(ig*2*jg,1)-nc(jg,1)*ig; $node coordinate 
nc(ig*2*jg,2)-nc(j9,2); 
end 
end 


en=zeros (61,2); 

en(1,1)=1; en(1,2)=2; %en:element_node 
en(2,1)=1; en(2,2)=4; 

en(3,1)=2; en(3,2)=3; 


en(4,1)=1; еп(4,2)=3; 
en(5,1)-2; еп(5,2)=4; 
for i-1:11 

for j=1:5 


en (i*5*j,1)-en(j,1)*2*i; 
en (i*5*j,2)-en (3,2) 2*i; 


end 
end 
en(61,1)=25; en(61,2)=26; 
ed(1:node number,1:2)-1; *ed:element displacement 


constraint-[1,1;1,2;25,2]; 
for loopi=1: length (constraint); 
ed (constraint (loopi,1), constraint (loopi,2))-0; 
end 
dof-0; 
for loopi-1:node number 
for loopj=1:2 


if ed ( loopi,loopj) 


dof-dof*1; 
ed (loopi, loopj) =dof; 
end 
end 
end 
ek-E*A*[1 0 -1 0;0 0 0 0;-1 0 1 0:0 0 0 0]; — &element stiffness matrix 
em-(density*a)/6*[2 0 1 0; ... element mass matrix 
0201; ... 
1020; ... 
0102); 
k(1:dof,1:dof)=0; $structural stiffness matrix 
mek; %structural_mass_matrix,same size 


with k 
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theta(1: 
e1 (1:61) =! 
e2s(1:4)=0; $ index of transform the element 


displament number to structure 
for loopi-l:element number 
for zi-1:2 
e2s ( (zi-1) *2+1) -ed (en (100pi,zi),1); 
e2s ( (zi-1)*242)-ed (en (1oopi,zi),2); 
end 
е1 (1oopi)-sqrt ( (nc (en (loopi, 1), 1)-nc(en (100pi,2),1))^2 
* (nc (en (1oopi,1),2)-nc(en(100pi,2),2))^2); 


theta (loopi)-asin((nc(en(loopi,1),2)-nc(en(1oopi,2),2))/el(1oopi)); 


lmd-[cos(theta(loopi)) sin(theta(loopi)); -sin(theta(loopi) ) 
cos (theta (100pi))]; 
t=[lmd zeros(2); zeros(2) lmd]; 
dk-t'*ek*t/el(loopi); 
+ dmet'*em*t*el(loopi); 
for jx-1:4 
for jy=1:4 
if (e2s (jx) *e2s (jy) ~=0) 
k(e2s (jx) ,e2s (jy) )=k (e2s (jx) ,e2s (jy) ) *dk (jx, ју); 
m(e2s (jx) ,e2s (jy) ) -m(e2s (jx) ,e2s (jy) ) +dm(jx, jy); 
end à 
end 
end 
end 
$ Inverse iterative method 
p-9; 
epsilon=le-5; 
[v, d) "Inviter (k,m,p, epsilon); %d:eigenvalue v:eigenvector 
frequency=sqrt (d) / (2*pi) ; 
% Suspace iterative method 
р 
epsilon-1e-5; 
(v,d]=Ssiter(k,m,p,epsilon) ; 
frequency-sqrt (d) / (2*pi) ; 
* MATLAB function eigs 
[v,d] -eigs(k,m,9, 'SM'); 
frequency=sart (diag (d) ) / (2*pi) ; 
(frequency, indexf]=sort (frequency) 
v=v(:,indexf); 
Factor=diag(v'*m*v); 
v-v*inv(sqrt (diag(Factor))); $ normalize eigenvector 


3 种 方法 运行 结果 比较 如 下 : 


frequency = 
method 1 method 2 method 3 


16.4815 
54.9565 
73.7466 
132.1518 
193.0646 
222.2496 
302.8284 
337.6138 
404.0057 
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16.4815 
54.9564 
73.7467 
132.1518 
193.0635 
222.2514 
302.8278 
337.6155 
404.0046 


2.4.2 ”结构 时 域 动力 响应 分 析 


【 例 2.2】 


КЛЫ 


平面 九 杆 析 架 ， 如 图 22 所 示 . 


16.4815 
54.9564 
73.7467 
132.1518 
193.0635 
222.2514 
302.8278 
337.6155 
404.0042 


图 2.2 жалин 


平面 九 杆 顶 架 的 材料 特性 为 : 弹性 模 量 已 =2.0x10"Pa ， 质 量 密度 p=7860kg/m; , 
所 有 单元 的 横 截 面积 为 2.5x10?mz . 在 节点 4 竖 直 向 上 加 有 一 大 小 为 200N 的 阶 跃 力 . Ж 
用 6 种 方法 计算 其 响应 ， 节 点 4 竖 直 方向 的 位 移 分 别 如 图 2.3(a) 一 (9 所 示 ， 该 6 种 方法 依 
次 为 ， 中 心 差分 法 、Houbolt 法 、Wilson- Ө 法 、Newmark 法 、 状 态 空间 法 、 振 型 痘 加 
法 . 用 MATLAB 编程 计算 ， 其 中 主要 用 到 的 MATLAB 函数 ( 见 2.4.4 节 ) 有 : 
ә TransRespl(kkl,ccl,mml,ft0,bcdoflntdtq0,dq0) 一 一 中 心 差分 法 计算 响应 . 
TransResp3(kk1 ,cc1,mm1 ,ft0,bedof! ,nt,dt,q0,dq0)——Houbolt 法 计算 响应 . 


TransResp5(kk1 ,cc1,mm1_,ft0,bcedof! ,nt,dt,q0,dq0)——Newmark 法 计算 响应 . 


LJ 

е  TransResp4(kkl,ccl,mm1,ft,bcdofl,nt,dt,q0,dg0)—— Wilson- Ө 法 计算 响应 . 
° 

е 


Modalresponse(m,k,Fu,u,time,Cy,q0,dq0;nummode) —— 8t 25 3 Ji Ж jv. 


$ Ex.2.2 
$n 


plane 9-bar truss 


$ To compute the dynamic response of node 4 on the vertical direction 


% 
% 
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E=2.0e11; 
A-2.5e-3; 
density-7860; 
node number-6; 
element number-9; 
nc-[0 0;4 0;4 3;8 0;8 3;12 0]; $node coordinate 
en-[1 2;1 3;2 3;2 4;3 4;3 5;4 5;4 675.6]; % element node 
ed(1:node number,1:2)-1 $ element displacement 
dof=0; 
for loopi=1:node_number 
for loopj=1:2 
dof=dof+1; 
ed (1oopi,100pj)-dof; 


end 
end 
ek=E*A*[1 0 -1 070 0 0 0;-1 0 1 0;0 0 0 0]; $ element stiffness matrix 
em= (density*A)/6*[2 0 1 0; ... Selement mass matrix 
0201; H 
1020; ... 
010 2); 
k(1:dof,1:dof)-0; % structural stiffness matrix 
mek; $ structural mass matrix, same size with k 
theta (1:9)=0; 
e1(1:9)= 
e2s(1:4)=0; tindex of transform the element displament number to structural 
for loopi=1:element_number 
for zi-1:2 
e2s((zi-1)*2*1)-ed(en(loopi,zi),1 
e2s((zi-1)*2*2)-ed(en(1oopi,zi),2); 


end 
е1 (loopi) =sqrt ( (nc (en (loopi, 1) , 1) -nc (en (1oopi,2),1))^2 
* (nc (en (1oopi, 1) ,2) -nc (en (100pi,2) , 2) ) ^2); 
theta (100pi)-asin((nc(en(1oopi,1),2)-nc(en(1oopi,2),2))/el(1oopi)); 
lmd= [соз (theta(loopi)) sin(theta(loopi)); -sin(theta(loopi)) 
соз (theta (1o0pi))]; 
t=[lmd zeros(2); zeros(2) 1md]; 
dk-t'*ek*t/el(1oopi); 
dm-t'*em*t*el(loopi 
for jx-1:4 
for jy-1:4 
k(e2s (jx) , 25 (jy) ) -k(e2s (jx) ,e2s (jy) ) *dk (3x, jy); 
m(e2s (jx), e2s (jy) )=m(e2s (jx) , e25 (jy) ) *àm (3x, y) ; 


end 
end 
end 
c=0*k+0*m; 
nt=1500;dt=0.0001; 
time=0:dt:nt*dt; 
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q0=zeros(dof,1); 
dq0-zeros (dof, 1) ; 
bcdof-zeros (dof, 1); 
fd=zeros (dof,nt); 
for i=1:nt 
fd (6, i)=200; 

end 

[acc, vel, dsp)=TransResp1 (k,c,m, fd, bcdof, nt, dt, q0,dq0) ; 
%[acc, vel, dsp] =TransResp3 (k, c,m, fd, bcdof, nt, dt, q0, dq0) ; 
%[acc, vel, dsp] =TransResp4 (k, c, m, fd, bedof, nt, dt, 90,440); 
$[acc, vel, dsp] =TransResp5 (k, c,m, fd, bedof, nt, dt, q0, dq0) ; 
plot(time, dsp(6,:)) 

xlabel('Time (seconds) ') 

ylabel(' Vertical displ. (m)') 


% state-space method 
AG=[zeros (dof) eye(dof);-inv(m)*k zeros (dof) ]}; 
BG= [zeros (dof, 1); 
inv(m)*[0 0000100 0]']; 
CG-eye (2*dof) ; 
DG-0; 
nt=1500; 
det=0.0001; 
time-0:det: (nt*det) ; 
for і=1: (nt+1) 
u(i)=200; 
end 
G=ss (AG, BG, CG, DG) ; 
dsp=1sim(G,u, time); 
plot (time,dsp(:,6)) 
xlabel ('Time (seconds) ') 
ylabel('Tip displ. (m)') 


$ modal analysis method 
nt=1500; 
det=0.0001; 
time-0:det: (nt*det) ; 
for i=1:(nt+1) 
u(i)-200; 
end 
Fu=[0 0 0 0 0 1 0 0 0]'; 
Cy=eye (dof); 
q0=zeros (dof, 1) ; 
dq0=zeros (dof, 1) ; 
nummode=9; 
Геба, dsp]=Modalresponse (m, k, Fu, u, time, Cy, q0, dq0, nummode) ; 
plot (time, dsp (6, :)) 
xlabel ('Time (seconds) ') 
ylabel(' Vertical displ. (m)') 
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图 2.3 节点 4 竖 直 方向 的 位 移 
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2.4.3 ”结构 频 响 函数 分 析 


【 例 2.3】 平面 九 杆 析 架 。 

对 例 22 的 平面 九 杆 检 架 进行 频 响 函 数 分 析 ， 假 设 阻 尼 为 比例 阻尼 ， 即 
C=1x10“K+1x10“*M ， 得 到 的 节点 2 竖 直 方向 与 节点 5 竖 直 方向 的 位 移 、 速 度 和 加 速 
度 频 响 函 数 曲 线 分 别 如 图 2.4(a)、(b)、(e) 所 示 . 


с=1е-5*К+1е-4*т; 
nummode-9; 
Omega=0:0.01:3000; 

р=8; 

q=2; 

(на, Hv, Ha]=freqresponse (k, m, c, Omega, nummode, 'all',p,q) 
figure(1) 

plot (Omega, log (abs (Hd) ) ) 
xlabel('Omega (Hz) ') 
ylabel('Hd') 

figure(2) 

plot (Omega, log (abs (Hv) ) ) 
xlabel('Omega (Hz) ') 
ylabel ("Hv") 

figure (3) 

plot (Omega, log (abs (Ha) ) ) 
xlabel('Omega (Hz) ') 
ylabel('Ha') 


(a) 位 移 频 响 函数 曲线 
图 2.4 节点 2 竖 直 方向 与 节点 5 竖 直 方向 的 频 响 函数 曲线 
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(b) 速度 频 响 函数 曲线 
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(c) 加 速度 频 响 函 数 曲 线 
824 (t) 


244 ”本 实例 所 用 的 MATLAB 函数 
以 下 函数 用 矢量 迭代 法 计算 结构 的 前 p 阶 特征 值 和 特征 向 量 . 


function [v, d]=Inviter(K, М, p, epsilon) 


% Purpose: 
% The function calculates the first p eigenvalues and eigenvectors for 


* а structural system using inverse interation method. 
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% Synopsis: 
E [v, d]-Inviter(K, M, p, epsilon) 
* Variable Description: 

` Input parameters 

% K ~ System siffness matrix 

% M- Sytem mass matrix 

% P - the number of calculated eigenvalues/eigenvectors 
% epsilon - the required precise 

% Output parameters 

% V- First p eigenvecotrs 

*$ d- First p eigenvalues 


[n1,n2]-size(K); 

KM-zeros (п1,1); 

for і=1:п1 
KM(i)-K(i,i)/M(i,i); 

end 

LY, I] =sort (KM, 1, 'ascend') ; 

у=2егоз (nl,p); 

y (:,1)2diag(M); 

for i-2:p 
y(1(i-1),i)-1; 

end 

dezeros(p,1); 

vezeros (nl,p); 


for ј=1:р 
flag=1; 
while flag 
if j>1 
for i-1:(j-1) 
xs=v(:,i)'*y(:,j)*v(:,i); 
xs=M*xs; 
у(:,3)=у(:,3)-хѕ; 
епі 


епа 


хісегеК\у(:,ј) ғ 
yiter-M*xiter; 
diter-transpose (xiter)*y(:,j)/ (transpose (xiter)*yiter); 
if (abs (diter-d(j))/diter)«epsilon 
flag-0; 
else 
flag=1; 
end 
y(:,j)=yiter/ ( (transpose (xiter)*yiter)^(1/2)); 
d(j)=diter; 
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епа 
d(j)=diter; 
v(:,j)=xiter/ ( (transpose (xiter)*yiter)^ (1/2)); 


AFART ERRAI FAR р 阶 特征 值 和 特征 向 量 . 


function [v,d]=Ssiter(K,M,p,epsilon) 


ее 
% Purpose: 
` The function calculates the first p eigenvalues and eigenvectors for 


% a structural system using subspace interation method. 
% Synopsis: 

% [v, d] -Ssiter(K,M, p, epsilon) 

$ Variable Description: 

3 Input parameters 

% K- System siffness matrix 

$ M- Sytem mass matrix 

% p- the number of calculated eigenvalues/eigenvectors 
% epsilon - the required precise 

LI Output parameters 

% V - First р eigenvecotrs 

% 


d - First p eigenvalues 


% Initialize the first q eigenvectors 


q-min(2*p,p*8) 
[n1,n2]2size(K); 
vO-zeros (п1,4); 
MK=zeros (n1,1); 
dO-zeros(p,1); 


for i= 


:п1 


MK(i)-M(i,i)/K(i,i); 
end 
ГУ, I]=sort (МК, 1, 'descend'); 
v0(:,1)=1; 
for i=2:q 
vO(1(i-1),i)-1/Y(i-1); 


flag-1; 

while flag 
iter=iter+1; 
yiter=M*v0; 
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xiterl=K\yiter; 
xiterl)'*K*xiterl; 
Mm- (xiterl)'*M*xiterl; 
Гут, dm] -eig (Km, Mm) ; % compute eigenvalue and eigenvector in subspace 
(lambda, k]-sort (diag (dm) ); 
ут=ут(:,К); 
Factor=diag(vm'*Mm*vm) ; 
Vnorm-vm*inv (sqrt (diag (Factor))); % normalize eigenvector 
vO-xiterl*Vnorm; 
diter-lambda (1:p); 
if abs (norm(diter)-norm(d0)) /norm(diter)<epsilon % termination condition 
flag=0; 
else 
flag=1; 


end 
dO-diter; 
end 


у=у0(:,1:р); 
d=d0; 


% The end 
m 


以 下 函数 用 中 心 差 分 法 计算 结构 的 动 响应 . 


function [acc,vel,dsp]=TransRespl (kk, cc, mm, fd, bcdof,nt,dt,q0,dq0) 


% Purpose: 
* The function subroutine TransRespl.m calculates transient response of 
% a structural system using central difference scheme. 

* Synopsis: 

E [acc, vel,dsp] -TransRespl (kk, cc, mm, fd, bcdo£, nt, dt, q0, dq0) 

% Variable Description: 

$ Input parameters 

à kk, cc, mm - stiffness, damping and mass matrices 

% fd - Input or forcing influence matrix 

+ bcdof - Boundary condition dofs vector 

+ nt - Number of time steps 

E dt - Time step size 

+ 90, dq0 - Initial condition vectors 

$ Output parameters 

E acc - Acceleration response 

E vel - Velocity response 

% dsp - Displacement response 


(sdof,n2]=size (kk); 
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dsp-zeros (sdof, nt); à displacement matrix 
velocity matrix 


ж 


vel=zeros (sdof,nt); 
acc=zeros (sdof,nt); $ acceleration matrix 


$ initial displacement 


$ initial velocity 


% (2) central difference scheme for time integration 


ace (:,1)=inv(mm) * (fd(:, 1) -kk*dsp (:,1) -cc*vel(:,1)); 
$ compute the initial acceleration (t-0) 
dspO0-dsp (:,1)-vel(:,1)*dt*0.5*acc(:, 1) *dt^2; 
% compute the fictitious displacement at time -dt 
ekkemn/dt^2*cc/ (2*dt) ; 
% compute the effective stiffness matrix 
ГИРЕ 
% (2.1) first step of the central difference scheme 
k 
efd=fd(: ,1) - (kk-2*mm/dt^2) *dsp (:, 1) - (mm/dt^2-cc/ (2*dt) ) *dsp0; 
% compute the effective force vector 
dsp (:,1+1) =іпу(екк) *еѓа; 
% find the dsp at l+dt 
for i-l:sdof % assign zero to acc, vel, dsp of the dofs associated with bc 
if bedof (i)==1 
dsp (i,1)=0; 
dsp (i,2)=0; 
vel (i,1)=0; 
ace (i,1)=0; 


% loop for each time step after first step 
efd=fd(:,it)-(kk-2*mm/dt*2) *dsp(:, it) -(mm/dt*2-cc/ (2*dt) ) *dsp(:,it-1); 
% compute the effective force vector 
dsp (+, it+1)=inv(ekk) *efd; % find the dsp at t+dt 
acc(:,it)=(dsp(:,it+1)-2*dsp(:,it)+dsp(:,it-1)) /dt*2; 
% find the acc at t 
vel(:,it)=(dsp(:,it+1)-dsp(:,it-1))/(2*dt); 
% find the vel at t 


for i-1:sdof % assign zero to acc, vel, dsp of the dofs associated with bc 
if bedof(i)==1 
dsp(i,it)-0; 
dsp(i,it*1)-0; 
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vel(i,it)-0; 
acc(i,it)-0; 
end 


end 
end 
acc(:,it*l)-acc(:,it); vel(:,it*l)-vel(:,it); 


if сс(1,1)==0 
disp('The transient response results of undamping systen') 
else 
disp('The transient response results of damping system') 
end 


disp('The method is central difference scheme 1') 


以 下 函数 用 Houbolt 法 计算 结构 的 动 响应 . 


function [acc, vel, dsp]=TransResp3 (kk, cc, mm, fd, bcdo£, nt, dt, q0, dq0) 


Purpose: 
The function subroutine TransResp3.m calculates transient response of 
a structural system using Houbolt integration scheme. 
Synopsis: 
pem 
Variable Description: 
Input parameters 
kk, cc, mm - stiffness, damping and mass matrices 


bedof - Boundary condition dofs vector 

nt - Number of time steps 

dt - Time step size 

90, dq0 - Initial condition vectors 
Output parameters 

acc - Acceleration response 


vel - Velocity response 
dsp - Displacement response 


% 
% 
% 
` 
% 
% 
% 
% 
% fd - Input or forcing influence matrix 
% 
% 
% 
* 
* 
% 
% 
% 


[sdof,n2]-size(kk); 


dsp=zeros (sdof, nt); 3 displacement matrix 
vel-zeros (sdof,nt); $ velocity matrix 


56 


MATLAB 有 限 元 结构 动力 学 分 析 与 工程 应 用 
acc=zeros (sdof,nt) ; % acceleration matrix 
dsp(:,1)=q0; % initial displacement 
vel(:,1)=dq0; $ initial velocity 


$ (2.1) calculate the displacement at time -dt 


асс(:,1) =іпу (mm) * (fd(:, 1) -kk*dsp (:,1) -cc*vel(:,1)); 
$ compute the initial acceleration (t-0) 
dspO-dsp (:,1)-vel(:,1)*dt*0.5*acc (:,1) *dt^2; 
$ compute the fictitious displacement at time -dt 


ekk-mm/dt^2*cc/ (2*dt) ; * compute the effective stiffness matrix 


* (2.2) calculate the displacement at time t+dt 


efd-fd(:,it)-(kk-2*nm/dt^2) *dsp (:, it) - (mm/dt^2-cc/ (2*dt) ) *dsp0; 
* compute the effective force vector 
dsp(:,it*1)-inv(ekk)*efd; % find the dsp at t+dt 
3 assign zero to acc, vel, dsp of the dofs associated with bc 
for i-1:sdof 
if bedof (i)==1 


dsp(i,1)=0; 
dsp(i,2)=0; 
vel(i,1)=0; 
acc (i,1)=0; 
end 
end 
%-- 
* (2.3) calculate the displacement at time t+2dt 
%-- 


for it=2:3 % loop for two steps after first step 
efdefd(:,it)- (kk-2*mm/dt^2) *dsp(:, it)- (mm/dt^2-cc/ (2*dt) ) *dsp(:,it-1); 
$ compute the effective force vector 

dsp (:, it*1)-inv(ekk)*efd; % find the dsp at t*dt 


acc(:,it)-(dsp(:,it*1)-2*dsp(:,it)*dsp(:,it-1))/dt^2; % find the acc at t 
vel(:,it)-(dsp(:,it*1)-dsp(:,it-1))/(2*dt); % find the vel at t 


for i-l:sdof % assigh zero acc, vel, dsp of the dofs associated with bc 
if bcdof(i)--1 
dsp(i,it)-0; 


#2} 结构 的 动力 特性 和 响应 分 析 57 


dsp(i,it*1)-0; 
vel(i,it)-0; 
acc(i,it)-0; 


end 


ekk-kk*cc*11/ (6*dt) *«mm*2/ (dt*dt) ; 


for it=3:nt % loop for each time step after initial step 
$ compute the effective force vector 
cfmedsp (:,it)*5/dt^2-dsp (:,it-1)*4/dt^24dsp(:,it-2)*1/dt^2; 
cfcedsp (:, it) *3/dt-dsp (:, it-1) *3/ (2*dt) «dsp (:, it-2) *1/ (3*dt) ; 


efd=fd(:,it+1)+mm*cfm+ce*cfc; 


dsp(:,it+1)=inv(ekk) *efd; * find the dsp at t+dt 
ace(:,it)=(2*dsp(:,it+1)-5*dsp(:,it)+4*dsp(:,it-1)+dsp(:,it-2)) /dt*2; 
% find the acc at t+dt 
vel(:,it)=(11*dsp(:,it+1)-18*dsp(:,it)+9&dsp(:,it-1)-2*dsp(:,it- 
2))/(6*dt); 


% find the vel at t+dt 
for i=l:sdof % assign zero to acc, vel, dsp of the dofs associated with bc 

if bedof (i)==1 

dsp (i, it)=0; 

dsp (i, it+1)=0; 

vel(i,it)=0; 

acc(i,it)-0; 
end 


end 


end 


if cc(1,1)==0 
disp('The transient response results of undamping system') 
else 
disp('The transient response results of damping system!) 


end 
disp('The method is Houbolt integration scheme') 


以 下 函数 用 Wilson-8 法 计算 结构 的 动 响应 . 
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function [acc, vel, dsp]=TransResp4 (kk, cc, mm, fd, bcdof, nt, dt,q0,dq0) 


Purpose: 
The function subroutine TransResp4.m calculates transient response of 
a structural system using Wilson Ө integration scheme. 


+ 
` 

% 

% Synopsis: 

+ [acc, vel, dsp]=TransResp4 (kk, cc, mn, fd, bcdo£, nt, dt, 90,940) 
$ Variable Description: 

` Input parameters 

+ kk, cc, mm - stiffness, damping and mass matrices 
% fd - Input or forcing influence matrix 

+ bcdof - Boundary condition dofs vector 

+ nt - Number of time steps 

+ dt - Time step size 

s q0, dq0 - Initial condition vectors 

LI Output parameters 

+ асс - Rcceleration response 

+ vel - Velocity response 

+ dsp - Displacement response 


% (1) initial condition 


[sdof,n2]=size (kk); 

dsp=zeros (sdof,nt) ; % displacement matrix 
velezeros (sdof,nt); $ velocity matrix 
accezeros (sdof,nt); $ acceleration matrix 
dsp(:,1)=q0; % initial displacement 
vel(:,1)-dq0; $ initial velocity 


% select the parameters 


% (2) Wilson Ө integration scheme for time integration 


acc(:,1)-inv(mm)*(fd(:,1)-kk*dsp(:,1)-cc*vel(:,1)); 
$ compute the initial acceleration (t-0) 
екк=кк+тт* (6/ (theta*dt) ^2) *cc* (3/ (theta*dt)); 
$ compute the effective stiffness matrix 
for i-1:sdof  $ assign zero to dsp, vel, acc of the dofs associated with bc 
if bcdof(i)==1 
dsp(i,1)=0; 
vel (1,1) =0; 
асс(і,1)=0; 
епа 
епа 
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for it=1:nt % loop for each time step 
cfn-dsp (:, it) * (6/ (theta*dt) ^2) vel (:, it) *(6/(theta*dt))+2*acc(:, it); 
cfc-dsp (:,it)*(3/(theta*dt))42*vel(:,it)*acc(:,it)* (theta*dt/2); 
efd-fd(:,it)*theta* (fd(:,it*1)-fd(:,it))*mm*cfm*cc*cfc; 
% compute the effective force vector 
dtheta=inv (ekk) *efd; % find the displacement at time t+@dt 


acc(:,it*1l)- (dtheta-dsp(:,it))*(6/(theta^3*dt^2)) 
7vel(:,it)*(6/(theta^2*dt)) *acc(:,it)*(1-3/theta); 
$ find the acceleration at time t+dt 
vel(:,it*l)-vel(:,it)*acc(:,it*1)*dt/2*acc(:,it)*dt/2; 
.$ find the velocity at time t+dt 
dsp(:,it*1)-dsp( t)*vel(:,it)*dt... 
*(acc(:,it*1)*2*acc(:,it))*(dt^2/6); 
% find the displacement at time t+dt 


for i=l:sdof  $ assign zero to acc, vel, dsp of the dofs associated with bc 
if bedof(i)==1 
dsp(i,it+1)=0; 
vel(i,it+1)=0; 
acc(i,it*1)-0; 
end 
end 


end 


if сс(1,1)==0 

disp('The transient response results of undamping system') 
else 

disp('The transient response results of damping system!) 
end 


disp('The method is Wilson O integration') 


% The end 
esed. 


以 下 函数 用 Newmark 法 计算 结构 的 动 响应 . 


function [acc, vel,dsp]-TransResp5 (kk, cc, mm, fd, bcdof, nt, dt, q0, dq0) 


$ Purpose: 
The function subroutine TransResp5.m calculates transient response of 
à structural system using Newmark integration scheme. 


[acc, vel, dsp]=TransResp5 (kk, cc, mn, £d, bcdof, nt, dt, q0,dq0) 
Variable Description: 


à 
H 
% Synopsis: 
à 
E 
à Input parameters 
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% kk, cc, mm - stiffness, damping and mass matrices 
$ fd - Input or forcing influence matrix 

LI bcdof - Boundary condition dofs vector 

à nt - Number of time steps 

% dt - Time step size 

E q0, dq0 - Initial condition vectors 

è Output parameters 

E acc - Acceleration response 

à vel - Velocity response 

+ азр - Displacement гезропзе 

[sdof,n2]=size (КК); 

dsp=zeros(sdof,nt); % displacement matrix 
vel=zeros(sdof,nt); % velocity matrix 
accezeros (sdof,nt); $ acceleration matrix 
азр (:,1)=90; % initial displacement 
vel (:,1)=dq0; % initial velocity 
alpha-0.5; beta-0.5; % select the parameters 


$-- E 
асс (:,1) =ілу(тт) * (fd(:, 1) -kk*dsp(:, 1)-cc*vel(:,1)); 

% compute the initial acceleration (t=0) 

ekk=kk+mm/(alpha*dt*2) +cc*beta/(alpha*dt) ; 

% compute the effective stiffness matrix 
% assign zero to dsp, vel, acc of the dofs associated with be 

for i-1:sdof 
if bedof (i)= 
dsp (i,1)=0; 
vel (i,1)=0; 
ace (i,1)=0; 


end 
end 


for it=1:nt % loop for each time step 
cfm=dsp(:,it)/(alpha*dt*2) +vel (:, it) /(alpha*dt) +ace(:,it)*(0.5/alpha-1); 
cfc=dsp(:, it) *beta/(alpha*dt)+vel(:,it)*(beta/alpha-1). 
*acc(:,it)*(0.5*beta/alpha-1)*dt; 
efd-fd(:,it)*mm*cfm*cc*cfc; $ compute the effective force vector 


it+1 
11 


dsp 
асс 


inv (ekk) *efd; $ find the displacement at time t+dt 
азр (:,it*1)-dsp(:,it))/(alpha*dt^2)- 
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vel(:,it)/(alpha*dt) 
-acc(:,it)*(0.5/alpha-1 % find the acceleration at time t«dt 
vel(:,ittl)=vel(:,it)+acc(:,it)*(1-beta) *dt+acc(:,it+1) *beta*dt; 
$ find the velocity at time t+dt 
$ assign zero to acc, vel, dsp of the dofs associated with bc 


for i-1:sdof 
if bedof (i)==1 
dsp (i, it+1)=0; 
vel (i, itt1)= 
ace (i,it+1)=0; 
end 
end 


end 


if cc(1,1)==0 
disp('The transient response results of undamping system') 
else 
disp('The transient response results of damping system') 
end 


disp('The method is Newmark integration') 
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function varargout-Modalresponse (varargin) 


Purpose: 
This function is used to calculate the modal and physical response for а 


strcutral system. 
Synopsis: 

[eta, yim]-Modalresponse (M, К, Fu, u, t, Cy, q0, dg0, nummode) 

(eta, yin] -Modalresponse (M, К, Fu, u, t, Cy, q0, dq0, a, b, nummode) 
Variable Description: 

Input parameters 

K - System siffness matrix 

M - Sytem mass matrix 

Fu - Force influence matrix 

u - Force vector 

t - Time of evaluation 

Cy - Output matrix 

q0,dq0 - Initial conditions 

nummode - the number of extracted modes 

a, b - Parameters for proportional damping [C]-a[M]*b[K] 

Output parameters 


P P de P de de ар de oe d^ ар de de do wh de co co е 


E eta - modal coordinate and velocity response 


+ yim - physcial coordinate response 
* 

$ Author Dr.XU Bin, Time:2006-11-29 

- 

disp('') 


disp('Please wait!! - The job is being performed.') 


if nargin<9 |nargin»ll|nargin 
error('Incorrect number of input arguments') 


else 
switch nargin 
case 9 


E 
Mevarargin{1}; 
K=varargin(2); 
Fu=varargin(3); 
t=varargin(5); 
{п,п]=з1ге (M) ; [n,m]=size (Fu); 
nstep=size(t'); 
[V,D]-eig(K,M); 
[lambda, k]=sort (diag (D) ) ; % Sort the eigenvalues and eigenvalues 
ES 
Factorediag(V'*M*V); 
Vnorm-V*inv(sqrt(diag(Factor))); $ Eigenvectors are normalized 
q0-varargin(7); 
dq0=varargin{8}; 
nummode=varargin{9}; 
eta0-Vnorn'*q0; * Initial conditions for modal coordinates 
deta0-Vnorn'*dq0; % both displacement and velocity 
eta-zeros (nstep, nummode) ; 
for i=1:nummode 

v-varargin(4); 

A-[0 1;-lambda(i) 0]; 

B- [zeros (1,m) ;Vnorm (:,i)'*Fu]; 

C-eye(2); 

D-0; 

x0-[eta0 (i) ;deta0 (i)]; 

x-lsim(ss(A,B,C, D) ju, t, x0) ; 

for j=1:nstep 

eta, i)=x (j, 1); 

end 
end 
Cy-varargin(6); 
yim-Cy*Vnorm(:,1:nummode)*eta'; $ Convert modal coordinate response to 
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physical coodrinate responses 
varargout {1}=eta; 
varargout(2)-yim; 


case 11 


M=varargin{1}; 
k-varargin(2); 

Fu-varargin(3); 

t-varargin(5); 

[n,n]=size (M) ; [n,m]=size (Еш); 

nstep=size(t'); 

[V, D] -eig(K,M); 

(lambda, k]=sort (diag(D)); % Sort the eigenvalues and eigenvalues 
V=V(:,k); 

Factor=diag(V'*M*V); 

Vnorm-V*inv(sqrt(diag(Factor))); % Eigenvectors are normalized 
Omega=diag (sqrt (Vnorm'*K*Vnorm));% Natural frequencies 


a-varargin(9); 
bevarargin(10); 
Modamp=Vnorm' * (a*M+b*K) *Vnorm; 
zeta=diag ( (1/2) *Modamp* inv (diag (Omega) ) ) ; 3: 
if (max (zeta) >=1) 
disp( 'Warning - Maximum damping ratio is greater than or equal to 1') 
disp('You have to reselect a and b') 
pause 
disp('If you want to continue, type return key’) 


q0-varargin(7); 
dq0-varargin(8); 

nummode-varargin(11); 

eta0-Vnorm' *M*q0; % Initial conditions for modal coordinates 
deta0-Vnorm!*M*dq0; % - both displacement and velocity 
eta-zeros (nstep, nummode) ; 

for i-1:nummode 


u-varargint4); 

A-[0 1;-lambda(i) -Modamp(i)]; 
B=(zeros(1,m) ;Vnorm (:,i) '*Fu]; 
C-eye(2); 

D-0; 
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x0-[eta0(i);deta0(i)]; 

x-lsim(ss(A,B,C,D) ,u,t,x0) ; 

for j=l:nstep 

eta(j,i)-xG,1); 

end 
end 
Cy-varargin(6); 
yim-Cy*Vnorm(:,1:nummode)*eta'; $ Convert modal coordinate response to 
physical coodrinate tresponses 


varargout(1]- 
varargout(2)-yim; 


end 


以 下 函数 用 于 计算 结构 的 频率 响应 . 


function varargout=freqresponse (varargin) 


$ Purpose: 
% This function is used to calculate the freqency response for a strcutral 
$ system. 

% Synopsis: 

* Hd=freqresponse (K, M, C, Omega, nummode, 'displacement') 

+ Hv=freqresponse (К,М, C, Omega, nummode, 'velocity') 

E Ha=freqresponse (K,M, C, Omega, nummode, 'acceleration!) 

3 [Hd, Hv, Ha] =freqresponse (K, M, C, Omega, nummode, 'а11') 

Ш Hd=freqresponse (K, M, C, Omega, nummode, ' displacement',p,q) 

` Hv=freqresponse (K,M, C, Omega, nummode, ' velocity',p,q) 

3 Ha=freqresponse (K, M, C, Omega, nummode, 'acceleration', p,q) 

E (Hd, Hv, Ha] =freqresponse (K, M, С, Omega, nummode, 'а11',р, 9) 

% Variable Description: 

% Input parameters 

4 K - System siffness matrix 

% M - Sytem mass matrix 

$ C - System damping matrix 

E Omega - Frequency range 

à nummode - the number of extracted modes 

à p/q  -- Serial number of the degrees of freedom 

+ 
LI 
% 
+ 
% 


Output parameters 

Hd - Displacement fregency response 

Hv - Velocity fregency response 

На ~ Acceleration fregency response 
Author Dr.XU Bin, Time:2006-11-29 


if nargin«6 |nargin»8|nargi: 
error('Incorrect number of input arguments") 
else 
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K=varargin(1); 
arargin(2); 
=varargin(3); 
Omega=varargin{4}; 
nummode=varargin{5}; 
nsdof=length (diag (К)); 
[V,D]=eig(K,M); 

[lambda, k]=sort (diag (D) ) 
V=V(:,k); 
Factor=diag(V'*M*V); 
Vnorm=V* inv (sqrt (diag(Factor))); 
Dampr-Vnorm'*C*Vnorm; 
n-length (Omega) ; 

switch nargin 


case 6 
switch varargin(6} 
case ‘displacement! 
Hdl-zeros (nsdod, nsdof) ; 
Hd=zeros (nsdof, nsdof,n) ; 
for р=1:п 
for q-1:nummode 
Hdl- Hdl*Vnorm(:,q)*Vnorm(:,q) ' / (lambda (q) - 
Omega (p) *2+i*Dampr (q, q) *Omega (p) ) ; 
end 
for l-1:nsdof 
for h-1:nsdof 
Hd (1,h, p) -Hd (1, h, p) *id1 (1, h) ; 
end 
end 
end 
varargout(1)-Hd; 
case 'velocity' 
Hvl=zeros (nsdof,nsdof); 
Hv=zeros (nsdof, nsdof,n) ; 
in 


for p= 
for q-1:nummode 
Ну1= Hvl+i*Omega (р) *Vnorm(:,q)*Vnorm(:,q) ' / (lambda (q) - 
Omega (p) *2+i*Dampr (q, q) *Omega (p) ) ; 


for h=1:nsdof 
Hv (1,h,p)=Hv(1,h,p) +Hv1 (1,h) ; 
end 
end 
end 
varargout(1)-Hv; 
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case ‘acceleration’ 
Hal-zeros (nsdof,nsdof) ; 
Ha-zeros (nsdof,nsdof,n); 
for p-1:n 
for q-1:nummode 
Hal= Hal-Omega (p)^2*Vnorm(:,q) *Vnorm(:,q) " / (Lambda (q) - 
Omega (p) *2+i*Dampr (q, q) *Onega (p) ) ; 


Ha (1, h, p) -Ha (1, h, p) *Ha1 (1,h) ; 
end 
end 
end 
varargout(1)-Ha; 
case 'all' 
Hdl=zeros (nsdof, nsdof) ; 
Hvl=zeros (nsdof, nsdof) ; 
Hal=zeros (nsdof,nsdof) ; 
Hd=zeros (nsdof, nsdof,n); 
Hv=zeros (nsdof, nsdof,n) ; 
Ha=zeros (nsdof, nsdof,n) ; 
for p=l:n 
for q=1:nummode 


Hdl= Hdl*Vnorm(:,q)*Vnorm(:,q) '/ (lambda (9) - 
Omega (p) ^2*i*Dampr (9,9) *Omega (p) ) 7 
Hvl= Hv1+i*Omega (р) *Vnorm(:,q) *Vnorm(:,q) '/ (Lambda (q) - 
Omega (p) *2+i*Dampr (q, q) *Omega (p) ) ; 
Hal= Hal-Omega (р) *2*Vnorm(:,q) *Vnorm(:,q) ' / (lambda (q) - 
Omega (p) ^2*i*Dampr (q, а) *Omega (p) ) ; 

end 

for l-1:nsdof 

for h-1:nsdof 

Hd (1, h, p) -Hd (1, h, p) *Hd1 (1,h) ; 
Bv (1, h, p) -Hv (1, h, p) *Hv1 (1,h) ; 
Ha (1,h,p) *Ha (1, h, p) *Hal (1,h) ; 


end 
varargout(1)-Hd; 
varargout {2}=Hv; 
varargout {3}=Ha; 
end 


case 8 
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nodei=varargin{7}; 
nodej-varargin(8); 
switch varargin(6) 


case 'displacement' 
Hdezeros (n,1); 
for p- 


in 
for q=1:nummode 
Hd(p)= Hd (р) +Vnorm(nodei, 4) *Vnorm (nodej, q) ' / (lambda (q) - 
Omega (p) ^2+i*Dampr (q, q) *Omega (p) ) ; 
end 
ena 
varargout(1)-H 
case 'velocity' 


Hv=zeros(n,1); 


nummode 
Hv (p) = Hv (p) +i*Omega (p) *Vnorm (nodei, q) *Vnorm (nodej, q) ' 
/ (Lambda (q) -Omega (р) ^2*i*Dampr (q, q) “Omega (p) ) ; 


end 
end 
varargout (1) =Hv; 


сазе 'acceleration' 
Ha=zeros(n,1); 
for р=1:п 
for q=1:nummode 
На (р) = Ha (р) -Omega (p) ^2*Vnorm (nodei, q) *Vnorm (nodej, q) ' 
/ (Lambda (q) -Omega (p) ^2*i*Dampr (q, q) *Omega (p) ) ; 
end 
end 
varargout(1)-Ha; 
case 'all' 


Hd=zeros(n,1); 

H 

Ha=zeros (n, 1); 
for р=1:п 


егоз(п,1); 


for q=1:nummode 


Hd(p)- Hd (р) +Vnorm (nodei, д) *Vnorm (nodej, q) ' / (Lambda (q) - 
Omega (p) *2+i*Dampr (q, q) *Omega (p) ) ; 

Hv (p) = Hv (p) +i *Omega (p) *Vnorm (nodei, q) *Vnorm(nodej,q) ' 
/ (Lambda (q) -Omega (p) *2+i*Dampr (q, q) *Omega (p) ) ; 

Ha (p) = Ha (р) -Omega (p) ^2*Vnorm (nodei , д) *Vnorm (nodej, q) ' 
/ (Lambda (q) -Omega (p) ^2*i*Dampr (q, q) *Omega (p) ) ; 


68 


MATLAB 有 限 元 结构 动力 学 分 析 与 工程 应 用 


end 
varargout{1}=Hd; 


varargout(2)-Hv; 
varargout {3}=Ha; 
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析 架 结构 由 于 其 简单 高 效 的 优点 ， 在 工程 中 有 广泛 的 应 用 . 在 桥架 结构 中 ， 各 杆 件 连 
接 处 可 以 近似 为 锐 接 ， 杆 件 可 以 绕 连 接点 自由 转动 . 这 样 结构 中 各 杆 件 都 只 受 轴 向 力 ， 属 
于 一 维 问题 ， 此 时 各 杆 件 内 的 位 移 是 线性 变化 的 ， 无 须 再 对 单个 杆 件 进行 单元 划分 ， 就 可 
以 得 到 杆 件 内 的 位 移 分 布 函数 ， 而 不 是 其 他 单元 类 型 中 构造 出 的 近似 位 移 分 布 函数 . 因此 
对 于 析 架 系统 ， 有 限 元 方法 得 到 的 是 精确 解 


3.1 杆 单 元 


在 一 般 有 限 元 问题 中 ， 为 了 方便 地 找到 适合 局 部 区 域 的 位 移 近 似 函数 ， 将 区 域 细 化 一 
般 是 有 帮助 的 ， 因 为 较 小 区 域内 的 位 移 变化 规律 总 是 比 将 其 包含 在 内 的 较 大 区 域内 的 位 移 
变化 规律 简单 . 但 在 枯 架 结构 中 ， 由 于 可 以 得 到 杆 件 内 精确 位 移 分 布 函数 ， 所 以 不 需要 在 
杆 件 内 再 细 分 单元 ， 可 以 直接 以 杆 件 为 单元 . 这 一 点 和 后 面 章节 要 介绍 到 的 其 他 单元 类 型 
都 不 同 ， 特 别 是 要 注意 和 梁 单元 的 区 别 

下 面 按照 选 定 单元 坐标 系 、 选 择 位 移 函 数 和 完成 单元 区 域内 刚度 矩阵 积分 的 过 程 来 计 
算 杆 单元 的 刚度 矩阵 . 


3.1.1 ”局 部 坐标 系 下 的 杆 件 单元 刚度 矩阵 


杆 单元 本 来 是 一 维 单元 ， 如 果 在 单元 轴线 与 坐标 轴 不 平行 的 情况 下 计算 单元 刚度 和 矩 
阵 ， 就 会 增加 不 必要 的 复杂 性 . 考虑 对 于 一 般 桥架 结构 ， 无 论 如 何 选择 整体 坐标 系 ， 一 般 
总 会 有 杆 件 在 总 体 坐 标 系 中 是 倾斜 的 ， 所 以 使 用 如 图 3.1 所 示 的 以 单元 轴线 为 x 轴 的 局 部 
坐标 来 建立 标准 的 杆 件 单元 刚度 矩阵 ， A ME SIP AMS талан 
坐标 系 下 的 刚度 矩阵 . 


831 杆 单元 


实验 和 理论 分 析 都 证 明了 仅 受 轴 向 力 的 杆 件 内 的 位 移 是 线性 分 布 的 . 因此 与 其 他 单元 
不 同 ， 不 必 寻 找 近似 位 移 函 数 ， 而 是 可 以 直接 得 到 杆 件 内 的 位 移 函数 . 在 上 述 局 部 坐标 系 
下 ， 长 度 为 ! 的 杆 件 内 位 移 u 与 x 坐标 的 关系 可 以 以 两 端点 处 的 位 移 表示 如 下 


7 +Žu (3-1) 
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RP, 表示 i 端点 处 的 位 移 ，u 表示 j 端点 处 的 位 移 . 
如 果 将 i 端点 作为 该 单元 的 1 号 节点 ,j 端点 作为 该 单元 的 2 号 节点 ， 相 应 的 单元 节 
点 位 移 向 量 为 a*=[u，] . 这 样 可 以 将 式 (3-1) 写 成 算 阵 形式 为 


1-5 oj, 
az| of " (3-2) 


1 
在 式 (3-2) 中 ， 对 于 一 维 单元 ， 通过 位 移 来 计算 应 变 的 关系 是 此， 因此 相应 的 微分 算 


ree, 由 此 得 到 


-1 0 
B= (3-3) 
ої 
一 维 的 杆 件 单元 中 ， 应 力 应 变 关系 为 gc = Es ， 因 此 其 弹性 变量 D 是 一 维 的 ， 其 数值 
为 E. 则 一 维 杆 件 单元 在 图 3.1 坐标 中 的 单元 刚度 矩阵 为 
m = т _ЁА|1! cl 
K* = | ВрВйх= A[ в^ова = ; Е || @-4) 
对 于 类 似 简单 的 单元 ， 其 刚度 矩阵 也 通过 刚度 矩阵 中 元 素 的 物理 意义 计算 得 到 ， 
如 果 杆 件 轴线 不 是 如 图 3.1 所 示 同 x 轴 平 行 ， 则 杆 件 单元 虽然 是 一 维 的 ， 但 是 其 位 移 
fE x 和 ?方向 上 都 会 有 投影 分 量 ， 此 时 在 其 单元 节点 位 移 向 量 中 应 添加 w 和 内 ， 使 之 成 为 
a-[w v, u, v] ， 其 相应 的 刚度 矩阵 也 将 因此 变 为 4 MERE. 所 以 为 了 保持 同 倾斜 
杆 件 单元 的 兼容 ， 可 以 技 照 扩 充 后 的 单元 节点 位 移 向 量 将 式 (3-4) 中 的 单元 刚度 矩阵 扩充 为 
4 阶 矩 阵 


(3-5) 


1 
оо о о 


3.12 ”坐标 转换 矩阵 


对 于 平面 顶 架 杆 单元 ， 如 图 3.2 所 示 ， 通 过 坐标 系 旋 转 即 可 完成 从 单元 局 部 坐标 系 到 
结构 整体 坐标 系 的 转换 . 这 一 关系 可 以 用 下 式 表示 
x° = xcos@ + ysin@ 
y= P 
其 中 上 标 е 表示 属于 单元 局 部 坐标 系 (以 后 如 不 作 特别 说 明 ，e 作 上 标 或 下 标 时 ， 均 代表 单 
元 (element)， 用 正体 ). 


(3-6) 
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图 3.2， 平 面 析 架 杆 单元 
式 (3-6) 可 以 写成 矩阵 形式 为 


PH SÜ en 


在 得 到 了 坐标 旋转 矩阵 4 Z Ji, UDRUÉGUUS BUM F BY ATCA AB B] а 与 系统 整 


体 坐 标 系 下 的 单元 位 移 向 量 a 的 关系 为 
ur u, cosÓ sin@ 0 0 u, 
у A Olly, -sing cosg 0 0 у 
f= = = =T K 
и; f M u, 0 0 cos@ sin@||u, š e 
v У, 0 0 -sing cosgjlv 


4 

式 中 ， 了 了 称 为 转换 矩阵 . 

下 面 分 析 如 何 利用 转换 矩阵 将 单元 刚度 矩阵 从 单元 局 部 坐标 系 转换 到 结构 整体 坐标 系 
下 的 表达 式 . 

在 单元 局 部 坐标 系 中 建立 一 个 单元 的 平衡 方程 . 得 到 

K'a = Р“ (3-9) 

为 了 得 到 在 结构 整体 坐标 系 的 相应 方程 ， 需 要 将 式 (3-9) 中 的 a 和 Р" 分 别 替换 为 a 和 
Р. 对 于 单元 位 移 向 量 ， 已 经 给 出 a* = Та; 对 于 单元 载荷 向 量 ， 相 应 的 也 有 P =ТР, 4} 
别 代入 式 (3-9) 中 得 


K'Ta - TP (3-10) 
在 两 边 同时 左 乘 7- ， 可 得 
T''K'Ta= P (3-11) 
记 7T-K*7 为 K ， 就 得 到 了 在 结构 整体 坐标 系 下 与 式 (3-9) 相 同形 式 的 平衡 方程 
Ка=Р (3-12) 
从 上 述 过 程 中 可 以 得 知 ， 两 种 坐标 系 下 的 单元 刚度 矩阵 的 关系 为 
K-T^KT (3-13) 


"DUE, AAR IEE, MAT = T-: ， 所 有 在 实际 应 用 中 ， 一 般 使 
用 式 (3-13) 的 等 价 形式 
K-TKT G-14) 
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将 式 (3-5) 和 工 带 入 式 (3-14)， 可 以 得 到 


cos! Ө cosÜsin ^ -cosÓ “ —cos@sin@ 
р = _ д un 
к Ёй cosgsing sin’ Ө соз Өзїп Ө dm (3-15) 
l| -cos8 -cos@sin@ cos’ 0 соз Өзїп @ 
—cos@sin@ —si?@0  cos@sin@ зїп? @ 


可 以 验证 ， 先 在 单元 局 部 坐标 系 下 推导 单元 刚度 矩阵 ， 再 使 用 转换 矩阵 得 到 的 式 (3-15) 
的 结果 ， 和 直接 在 结构 整体 坐标 系 下 得 到 的 一 般 杆 件 单元 刚度 矩阵 是 一 致 的 . 


3.1.3 ”单元 质量 矩阵 


在 本 书 第 1 章 中 已 经 介绍 过 ， 存 在 两 种 单元 质量 矩阵 ， 其 中 协调 单元 质量 矩阵 可 以 按 
照 下 式 计 算 
м“ = f. pN! NàV (3-16) 


其 计算 过 程 与 式 (3-11) 中 单元 刚度 矩阵 的 计算 过 程 类 似 ， 在 这 里 不 再 叙述 而 是 直接 给 出 
结果 


2010 
10 20 1 
ур 0 2 0 em 
0102 
式 中 ，4 为 杆 件 的 截面 积 . 
平面 杆 单元 的 集中 质量 矩阵 为 
Mw - 2, (3-18) 


RH, LL. 表示 4 阶 单位 矩阵 . 
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上 面 两 节 内 容 是 针对 平面 桥架 结构 的 . 对 于 空间 桥架 结构 ， 应 使 用 三 维 杆 单元 . 在 推 
导 三 维 杆 单元 的 过 程 中 ， 继 续 使 用 单元 局 部 坐标 系 依旧 是 有 利 的 . 由 于 杆 单元 本 身 的 一 维 
特点 ， 在 使 用 杆 件 轴线 作为 单元 局 部 坐标 系 x 轴 的 情况 下 ， 三 维 杆 单元 与 二 维 杆 单元 是 基 
本 相同 的 . 三 维 杆 单元 中 增加 的 单元 节点 位 移 w 和 在 此 情况 下 实际 上 和 另 一 组 位 移 W 
和 %w 一 样 总 为 零 ， 杆 件 内 的 位 移 分 布 通过 对 wu ЯП и, 进行 插值 即 可 得 到 . 这 样 两 种 单元 的 推 
导 过 程 和 结果 都 是 一 样 的 . 只 是 为 了 和 在 结构 整体 坐标 系 下 的 一 般 杆 件 单元 的 刚度 矩阵 相 
统一 ， 对 三 维 杆 单元 还 是 需要 在 单元 位 移 向 量 中 引入 w 、w, 、% 和 w%， 同 时 也 相应 地 将 
单元 刚度 矩阵 扩充 为 6 阶 . 
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100-100 
000000 
E0000 оо 
. EA 3-19) 
KF-j|aoo0100 $49 
000000 
000000 
三 维 杆 单元 的 集中 质量 矩阵 为 
м = z La (3-20) 
协调 质量 矩阵 为 
200100 
020010 
,pAllo 02001 
-24! 321 
m-—$100200 Gn 
010020 
001002 


三 维 杆 单元 的 单元 局 部 坐标 系 和 结构 整体 坐标 系 之 间 依 旧 是 坐标 系 旋转 的 关系 ， 其 转 
(x) cos(x,y') соз(х,г°) 
) 


4=|cos[y,x° cos(y,»*) соз(у,г°) (3-22) 
cos(z,x*) cos(z,y*) cos(z,z") 
Т= [3 M (3-23) 


其 中 (zz) 表 示 结 构 整体 坐标 系 x 轴 与 单元 局 部 坐标 系 x 轴 间 的 角度 ; (х, ›*) 表示 结构 束 
体 坐 标 系 x 轴 与 单元 局 部 坐标 系 轴 间 的 角度 ;其 余 以 此 类 推 ， 


32 я fi 


下 面 通过 计算 如 图 3.3 HT 38 НО АГ ЖАЛИ Hr A ASH I yupay CI — ВОЯ. 


3.2.1 问题 介绍 


该 术 架 由 5 个 节点 和 7 个 杆 件 构成 . 各 杆 件 的 截面 积 统一 为 4=1e-4m?， 弹 性 模 量 为 
E=2.1ellPa， 质 量 密 度 为 p=7300kg/m’. 结构 在 1 号 节点 处 有 水 平和 垂直 方向 上 的 位 移 


约束 ， 在 3 号 节点 上 有 垂直 方向 上 的 位 移 约束 . 结构 各 节点 位 置 如 图 3.3 所 示 . 
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Ф 7 ® 


图 3.3 mitis 


该 结构 为 平面 结构 ， 所 以 计算 其 固有 频率 的 时 候选 择 二 维 杆 件 单元 即 可 . 如 果 选 择 三 
维 杆 件 单元 ， 计 算出 的 结果 中 会 增加 5 阶 低 阶 频率 . 读者 可 以 思考 为 什么 是 增加 了 5 Br? 
为 什么 这 些 频率 是 不 需要 的 ? 


3.22 MATLAB 程序 及 说 明 
计算 该 问题 的 MATLAB 程序 如 下 : 


Е=2.1е11; 
A-1e-4; 
density-7.3e3; 
node number-5; 
element numbers7; 


nc=[0,0;1,0;2,0;0,1;1,1]; 
%nc:node_coordinate 


en=[1,2;2,3;1,4;2,4;2,5;3,5S;4,5]; 
%en:element_node 
ed(1:node_number,1:2)=1; 
%ed:element_displacement 
constraint-[1,1;1,2;3,2]; 


for loopi-1:length(constraint); 
ed (constraint (loopi,1),constraint (loopi,2))-0; 
end 
dof-0; 
for loopi-i:node number 
for loopj=1:2 
if ed(loopi,loopj)--0 
dof=dof+1; 
ed (loopi, loop}) =dof; 
end 
end 
end 
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Sel:length of link element 
ek=E*A*[1 0 -1 0;0 0 0 0;-1 0 1 0;0 00 0]; 
Sek:element stiffness matrix 

em- (density*A) /2*eye (4); 
Sem:element mass matrix 

k(1:dof,1:dof) 


Sk:structural stiffness matrix 
m=k; 
&m:structural mass matrix,same size with k 


theta (1:7) =0; 

е1(1:7)=0; 

е25(1:4)=0; 

% е2з: index of transform the element displament number to structural 


for loopi-l:element number 
for zi-1:2 

e2s ( (zi-1) *2+1)=ed (en (loopi, Zi), 1); 

e2s ((zi-1)*2*2)-ed(en(1oopi,zi),2); 


end 


el(loopi)-sqrt ( (nc (en (1o0pi, 1), 1) -nc (en (100pi,2),1))^2 

* (nc (en (1oopi, 1) ,2) -nc (en (100pi,2) ,2)) ^2); 

theta (100рі) =азїп ( (пс (en (1oopi,1),2)-nc(en (100pi,2),2)) /el(1oopi)); 
lmde[cos(theta(loopi)) sin(theta(loopi)); -sin(theta(loopi)) 

cos (theta (1oopi))]; 

t=[1md zeros(2); zeros(2) lmd]; 

dket'*ek*t/el(loopi); 

dm-t'*em*t*el(loopi); 


for jx-1:4 
for jy=1:4 
if (e2s (jx) *e2s (jy) ~=0) 
к (e2s (jx) , e2s (jy) )=k (e2s (jx) ,e2s (Jy) ) +dk (jx, jy); 
m(e2s (jx) , e2s (jy) )=m(e2s (3x) ,e2s (jy) ) *àóm (3x, 3y) ; 


[v,d] = eig(k,m); 
Sd:eigenvalue 
Sv:eigenvector 


frequency-sqrt (diag (d)) / (2*pi) ; 


[£requency, indexf]-sort (frequency) ; 
d-d(:,indexf); 
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在 这 个 程序 中 ， 采 取 的 是 通过 式 (3-14) 由 标准 的 单元 局 部 坐标 系 下 的 单元 刚度 矩阵 计 
算 各 单元 在 整体 坐标 系 下 的 刚度 矩阵 的 方法 . 实际 上 也 可 以 对 各 单元 直接 使 用 式 (3-15) 给 
出 的 结果 . 因为 在 本 例 中 ， 只 有 7 个 单元 ， 所 以 两 种 方法 差别 不 大 . 对 于 大 型 结构 ， 就 有 
必要 使 用 后 一 种 方法 . 

程序 中 用 到 的 eye 函数 用 来 生产 单元 矩阵 ,zeros 函数 用 来 生成 元 素 全 为 零 的 矩阵 . 在 
本 例 中 ， 由 于 系统 自由 度数 目 仅 为 7， 总 体 刚 度 矩阵 和 质量 矩阵 都 很 小 ， 所 以 没有 使 用 稀 
EER RET RE. 对 于 大 型 顶 架 结构 ， 可 以 考虑 在 程序 中 使 用 稀疏 矩阵 . 

程序 的 最 后 两 条 语句 用 来 对 频率 进行 排序 . 因为 eig 函数 求 得 的 特征 值 并 不 是 已 经 排 
序 好 的 . 所 以 有 必要 对 frequency 变量 进行 排序 ， 并 且 根 据 其 顺序 的 改变 ， 也 相应 地 改变 
特征 向 量 数组 的 排序 . 


323 ”计算 结果 


程序 计算 结果 和 使 用 商业 化 有 限 元 软件 Abaqus 所 得 到 的 结果 列 在 表 3.1 中 . 可 以 看 出 ， 
两 者 结果 是 完全 一 致 的 . 
X31 算 例 固有 频率 


Frequency (Hz) (MATLAB) Frequency by (Hz) (Abaqus) 


1 237.5939 237.59 
2 285.2482 285.25 
3 d 570.4911 | 570.49 
4 746.4871 | 746.49 
5 966.6246. | 966.62 
6 


可 以 使 用 line 命令 来 绘图 显示 此 杭 架 结构 的 模 态 . 


mode=1; 
for loopi=1:element_number 
x-[nc(en(1oopi,1),1) пс(еп(10орі,2),1)1; 
у= (пс (еп (10орі,1),2) nc(en(loopi,2),2)]; 
line (х,у) 
mx (1:2)=0; 
my (1:2)=0; 
for loopj=1:2 
if ed(en(loopi, loopj),1)~=0 
mx (100pj) =x (10орј) *v (ed (en (1oopi, loopj),1),mode) /8; 
else 
mx (100pj) =x (100p) ; 
end 
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if ed(en(loopi,loopj),2)-=0 
my (100p3) =у (100p3) +v (ed (en (loopi, 100pj) , 2) ,mode) /8; 
else 
my (1оорј) =у(1оорј); 
епа 
епа 
line (тх, my, 'LineStyle',':') 
end 


通过 line 命令 绘制 直线 并 不 复杂 ， 上 述 程序 的 主要 部 分 是 在 于 根据 特征 向 量 得 到 结构 
变形 后 各 节点 的 位 置 坐标 ， 所 得 第 一 阶 模 态 如 图 3.4 所 示 ， 其 中 实 线 部 分 表示 原 结构 以 作 
对 比 . 


0 05 1 15 2 Я 25 
图 3.4， 柏 架 结构 第 一 阶 模 态 


通过 调整 上 述 程序 中 mode 的 数值 ， 可 以 很 方便 地 得 到 其 他 几 阶 模 态 的 图 形 . 图 3.5 一 
图 3.7 分 别 给 出 了 第 二 阶 到 第 四 阶 模 态 . 
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图 3.7 Him 
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在 有 限 元 法 的 计算 中 ， 随 着 单元 节点 数目 的 增加 ， 插 值 函数 的 阶 次 也 相应 增高 ， 使 得 
求解 精度 提高 ， 在 对 一 个 给 定 问题 的 求解 域 ， 可 用 较 少 的 单元 数 获得 满足 精度 要 求 的 解 
E. 但是， 实际 进行 有 限 元 建 模 时 ， 用 较 少 的 形状 规则 的 单元 来 离散 几何 形状 复杂 的 求解 
域 时 常会 产生 困难 .车 用 边界 为 曲线 或 曲面 的 单元 ， 则 可 使 此 问题 得 到 解决 ， 因 此 需要 建 
立 将 形状 规则 的 单元 变换 为 边界 为 曲线 或 曲面 的 单元 的 方法 ， 在 有 限 元 法 中 对 应 此 问题 所 
采用 的 变换 方法 是 等 参 变 换 ， 即 单元 几何 形状 的 变换 和 单元 内 的 场 函数 采用 相同 数目 的 节 
点 及 相同 的 插值 函数 进行 变换 . 
` 等 参 变换 的 实质 是 从 一 个 坐标 系 到 另 一 个 坐标 系 的 数学 映射 ， 前 者 称 为 自然 坐标 系 

(或 局 部 坐标 系 )， 后 者 称 为 物理 坐标 系 (或 总 体 坐 标 系 )， 将 自然 坐标 系 中 几何 形状 规则 的 
单元 转换 物理 ( 笛 卡 儿 ) 坐 标 系 中 几何 形状 扭曲 的 单元 ， 需 要 建立 一 个 坐标 变换 . 


ЧЕМ 


z 
图 4.1 所 示 为 等 参 变换 的 例子 


41 二 维 单元 的 等 参 变换 


4.1 一 维 单 元 


一 维 线性 单元 的 等 参 变换 如 图 4.2 所 示 . 
单元 有 两 个 节点 ， 在 如 图 4.2(a) 所 示 的 自然 坐标 系 中 为 6 =-1 和 所 =1， 在 如 图 4.2(b) 
所 示 的 物理 华 标 系 中 为 和， 相应 的 节点 位 移 为 u 和 wu, .在 自然 坐标 系 下 ， 单 元 的 形 
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函数 可 写 为 
M@)=50-8) 
я (41) 
N= 5048) 


(a) 自然 坐标 系 中 的 情况 (b) 物理 坐标 系 中 的 情况 
图 4.2 一 维 线性 单元 的 等 参 变换 
利用 此 形 孙 数 ， 在 自然 兴 标 系 下 单元 内 的 任 一 点 -1<6 <1 HL MN A HR 
Uu 


х= Nx + №, (Ф) (4-2) 
用 同一 形 函 数 对 单元 的 位 移 变量 zx 插值 ， 有 
u= Nu, + № (Du; (4-3) 


这 种 采用 相同 的 形 函 数 进行 坐标 变换 和 节点 变量 插值 ， 并 且 用 相同 节点 数 的 单元 称 为 
等 参 单元 ， 这 种 变换 称 为 等 参 变换 。 如果 变换 用 的 节点 数 大 于 函数 插值 用 的 节点 数 ， 则 称 
为 超 参 变换 ， 反 之 ， 如 果 变换 用 的 节点 数 小 于 函数 插值 用 的 节点 数 ， 则 称 为 次 参 变换 . 

为 了 便于 在 规格 化 的 自然 坐标 系 下 进行 单元 特性 矩阵 的 计算 ， 需 要 建立 两 个 坐标 系 间 


对 于 一 维 单元 
du dN(D, , NIE), NE dE, , ANE) A "P 
dx dx dx dë dx dé dx 
由 式 (4-2)， 有 
9х MNO, NDE), 16 yy ad М 
risk (4-5) 
Zh, L-x-x. AAT. 
式 (4-5) 称 为 Jacobi fü, IRIRA J = а/а. 将 其 代入 式 (4-4)， 得 
du 1 1 F 
k EEE (4-6) 
因而 对 应 于 物理 坐标 系 ， 形 函数 的 导数 为 
dNO 1 -l 
dx -x4 d 
aN) 1 1 ЧА 
& x-x | 
对 于 如 图 43 所 示 的 一 维 二 次 等 参 单元 ， 形 函数 为 
ме) 620, noie, мо 5679 (48) 
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用 该 形 函 数 对 单元 的 位 移 变量 zx 插值 ， 有 


u= Nu + N, (Eju, + N Qu, (4-9) 
单元 从 自然 坐标 系 到 物理 坐标 系 映射 为 
х= Nx + №), + Nx, (4-10) 


Jacobi 值 为 


_4 s. dH.) 
"Л 
若 物理 坐标 系 中 的 节点 总 RECTE Ba x, Sx ЙН], BAT x, =28 a » Jacobi 值 变 为 


x, = (£ -0.5)x, - 2£ x, +(£ +0.5)x, (4-11) 


1 
2-56 -x)=44, (4-12) 
对 应 于 物理 坐标 系 ， 形 函数 的 导数 为 
MOINE] 


dc ^J ағ 1087) 
AN (E) 14м 46 
d J dé 1, 


NO там) _ 1 
di I dp gen 


(4-13) 


node; node; nodes 


“=! &-0 ol 


图 4.3 一 维 二 次 单元 
42 ”四 边 形 单元 


四 边 形 单元 可 由 自然 坐标 系 中 的 矩形 单元 映射 而 成 ， 如 图 44 Bras. 如 图 4.4(a) 所 
示 ， 在 自然 坐标 系 下 ， 单 元 是 规则 化 的 ( 即 -1 过 4 入 1，-1 和 7 入 1). 


Gy) 


n 
SS бу) 


Gy) 


(a) 自然 坐标 系 中 的 情况 (b) 自然 坐标 系 到 物理 坐标 系 的 映射 
图 4.4 ”四边 形 单元 
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当 自然 坐标 系 中 单元 取 为 双 线性 单元 时 ， 单 元 的 形 函 数 定义 如 下 


Na) =40-21=) 
NMEM= 0+8- 
NEM= e 


N Gen) = -E+ 
单元 从 自然 坐标 系 到 物理 坐标 系 的 映射 为 
x= Nux, 


E 


y= EN my, 


在 进行 映射 变换 时 ， 要 求 单元 两 个 坐标 系 下 的 节点 编号 要 对 应 . 
单元 的 节点 变量 用 形 函 数 进行 插值 ， 有 
u= Nm, 


对 应 于 自然 坐标 系 ， 形 函数 的 导数 为 
ON(SN) _ ÔN, (En) &x , ON (д) ду 


ag & д ду дё 
ÊN (,n) _ ON (En) Əx | ONG. m) ду 
on Ф ôn ay Om 
写成 矩阵 形式 为 
ô x alfa 8 
Er _| ag ag || & EE 
3 М, = & le NG.) =F) 5 (N. m) 
on Ən дт|\ду Oy 


ДР, JEKA Jacobi 矩阵 ， 且 有 


х ә) омет, YONG, 


Е zF әв д8) | a ' A д 
Ja „| |&х д S ôN (6.77) v ON, (5,77) 
on ên > én > en 


对 应 于 物理 坐标 系 ， 形 函数 的 导数 为 
ONG.) _ ƏN (2.7) OË | ON (Gs) Ən 


ax ae д дт а 
2N, (6,7) _ ƏN,(Z,) 96 | ON (Em) en 
ey д ду ôn oy 


写成 矩阵 形式 为 


(4-14) 


(4-15) 


(4-16) 


(4-17) 


(4-18) 


(4-19) 


(4-20) 


(4-21) 
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ә ә әтә a 
а Гас Gx JOE EN 
ә MED] ок ayl) a MEDER G (NEm 
ey Ф 6y әл дп 
比较 式 (4-19) 和 式 (4-22)， 可 知 
a [Ri zl 
R=J'= 
[s =: 
Hi d£ Al dy 在 物理 坐标 系 中 形成 的 面积 微 元 为 
d4=dëxdn 


=®ад+® аг) 
di = ord + 544) 


БУР: an; 
dy = an 1*5, td 
式 中 ，i、j 是 物理 坐标 系 的 单元 坐标 向 量 .将 式 (4-25) 代 入 式 (4-24)， 得 


d£dg =|J|dé dn 
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(4-22) 


(4-23) 


(4-24) 


(4-25) 


(4-26) 


在 实际 应 用 中 ， 常 用 到 八 节点 的 四 边 形 等 参 单元 和 九 节点 的 四 边 形 等 参 单元 ， 如 


图 4.5 和 图 4.6 所 示 ， 单 元 的 形 函 数 见 表 4.1. 
表 4.1 四 边 形 等 参 单元 的 形 函 数 


八 节点 的 四 边 形 等 参 单元 九 节点 的 四 边 形 等 参 单元 


N -1a-6-mXc1-£-9) 36-00 -m 
Ne 10e - nte £7) | N,-3€ «Der n) 
N= 2d eO eee Een) N= EO +m 
mm N =E - Df en) 
N,=-10-2X1-9) | N= 30-20") 
х,-1а+да-тЭ» N,-3€ «50-0 
ма-га N,- 3-2 +) 
М=;@-д0-т) = -да-т) 

=;%-49%0-т› 
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4 mi 3 
7 
8 6 мы: x 
= e “ Ç 
5 
1 m 2 
图 4.5 “ 八 节点 的 四 边 形 等 参 单元 46 лъва вёл 
43 三 角形 单元 
三 角形 等 参 单元 的 变换 如 图 4.7 所 示 . 
7 
mine 
2 
5 
el 
@ BAER HAINE (b) 自然 从 标 系 到 物理 举 标 系 的 映射 


图 4.7 三 角形 等 参 单元 


三 角形 等 参 单元 的 映射 变换 与 四 边 形 等 参 单元 相同 .线性 三 角形 单元 的 形 函 数 为 
N=1-6-7 
М, = (4-27) 
N,=n 
而 如 图 4.8 所 示 的 六 节点 三 角形 单元 的 形 函数 为 
N, =(1-2-)01-22- 27) 
N, =404-1) 
N, =(2n-1) 
N,=4g0-E-n) VP 
N, = 441] 
N,=4n(1 -8-7) 
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= 


(0.5,0) (1,0) 


图 4.8 六 节点 三 角形 等 参 单 元 


44 三 维 单 元 


三 维 等 参 单元 的 变换 如 图 4.9 所 示 . 


图 4.9 三 维 等 参 单元 变换 


当 自然 坐标 系 中 单元 取 为 八 节点 正六 面体 单元 时 ， 单 元 的 形 函数 定义 如 下 
М=@-20-та- 


М=а+да-та-2 


Neg 5X - XL c) 
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N, =11-90-00+0 
№-10-90+00-0 
м, =10+90+71-0) 

м, =10+00+701+0) 


һ=@-да+та+д 


更 多 节点 的 单元 或 其 他 的 等 参 单元 的 形 函数 可 参见 文献 [2]. 
单元 从 自然 坐标 系 到 物理 坐标 系 映射 为 


r= YN Gans 


тї 


VÈNE, > z= ING Os 


(4-29) 


(4-30) 


式 中 ，m 为 单元 形 函 数 的 个 数 。 在 进行 映射 变换 时 ， 要 求 单元 两 个 坐标 系 下 的 节点 编号 


单元 的 节点 变量 用 形 函 数 进行 插值 ， 有 


u- Y Nm Ou, 


= 


对 应 于 自然 坐标 系 ， 形 函数 的 导数 为 


ƏN sme) 


дл) Ox | Мс) ду, ONS MS) & 


2 é — 08 ð д Ф ô 
ONG, e) _ Ә№,(%,т6) Ox , ON (Gum, e) ду , ON ume) д2 
ôn ax дл Ф дт & on 
ON (E.G) _ ON(S ME) 0x | ON (EnG) Oy | ON (sms e) 0z 
ac & e B ë & ec 
写成 矩阵 形式 为 
д х Oy e [0 ô 
дё 08 06 022 || х 
a а ó & jo @ 
М,(Фъ)= N,(¿,n,ç)= J Nm, 
n (5.7.5) an Әт Om||ó (me) ду (2,7,6) 
ә & ó ё ||ә д 
ec oc oc ëç]la ë 
sth, J Jacobi ЖЕ, АЯТ 
v- ON (S455) & óN,(Z,n,2) v- óN,(Z,n,2) 
a "n ox Лу ar 
= 92) < ƏN,(Z,n,2) & 2М,(8,7,0) 5 ON. (S475) 
ло |# n C M m "à $^ 
< ON, (5.1.8) < ON (5,755) © 3N (S17,6) 
2 ae Bee 


(4-31) 


(4-32) 


(4-33) 


(4-34) 


Sat 等 参 单 元 


对 应 于 物理 坐标 系 ， 形 函数 的 导数 为 
ONG. c) ONG. m. c) дё | ON Gom C) On , ON Gum.) де 


а a ё op а 05 ё 
[ACA _ 0№(8,п,6) OË , ON/(E,7,5) n 2№(8,т6) де 
ду д фу ôn дф [2 
ON, (6.25) _ ON Gm C) 28 ON Gm. e) m , ON (6m, C) 25 
ë Ф ё ôn ë © ë 
写成 矩阵 形式 为 
8 28 Ən 2110 2 
д a x x [06 E 
ð дё Ən êç || ә ð 
N,(&,1,6) = Nm) = R — HN (Es, 
E? (me) ду y allen (6.7.5) n (6) 
E] a& Op || ә ao 
& ё 6 llag oc 


比较 式 (4-33) 和 式 (4-36)， 可 知 
R=s" 
dg. dp. dé 在 物理 坐标 系 中 形成 的 体积 微 元 为 
dV = d£ (ха) 
而 
ә 
EI I dék 
MEAE 


a 5 
thea abi а pz dck 

式 中 ，i、j、k 是 物理 坐标 系 的 单元 坐标 向 量 . 将 式 (4-39) 代 入 式 (4-37)， 得 
а y ë| 

az ag OE 
"x £ агата =Лагалас 
а в 2 

ec oc aç 
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(4-35) 


(4-36) 


(4-37) 


(4-38) 


(4-39) 


(4-40) 


等 参 单元 通常 是 以 位 移 作为 基本 变量 ， 进 行 结构 分 析 有 限 元 的 格式 对 等 参 单元 同样 适 
用 ， 其 中 的 差别 只 是 等 参 单元 的 形 函 数 是 用 自然 坐标 给 出 的 ， 等 参 单元 的 计算 在 自然 坐标 
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系 中 的 规则 单元 内 进行 ， 只 要 将 等 参 单元 的 变换 公式 代入 有 限 元 的 一 般 格式 进行 修正 即 可 . 


系统 的 有 限 元 方程 为 
Má(t) * Са(ї) + Ка(ї)= P(r) (4-41) 


хт, M 为 系统 质量 矩阵 ，M = 六 GTM'G ; CARRE, C-YG'CG; KA 
系统 刚度 和 矩阵， = 》,G"K*G ; P 为 系统 载荷 向 量 ， P=XG'P'. 其 中 ,，M*、C*、 
к 和 P° 分 别 为 单元 质量 矩阵 、 单 元 阻尼 矩阵 、 单 元 刚度 矩阵 和 单元 节点 载荷 向 量 (其 中 
上 标 或 下 标 e 代 表单 元 (element)， 用 正体 )， 且 有 
м = РММ 
C = Í uN' NàV 
i (4-42) 
ке = [, B'DBav 
P = | NT fav + [ N'Tas 
利用 等 参 变换 计算 单元 矩阵 时 只 需 进行 两 方面 的 修改 ， 积 分 变量 ( 取 自 然 坐 标 系 ) 和 积 
分 限 ， 下 面 以 三 维 单元 为 例 ， 对 &、n 、《 坐标 系 中 的 立方 体 单元 讨论 单元 矩阵 的 计算 ， 
在 自然 坐标 系 中 有 


-IS€<1, -1<n<!1, -1<@<1 
再 将 体积 微 元 、 面 积 微 元 和 线 微 元 的 变换 式 代入 趟 (4-42)， 可 得 
ar - fj Í f; enty|slasanag 
c - f, f, f, uv Nlasdnds 
x - | [ f, s'psulazanac 
к= [| [| [| М'л\лагадас+ |! малае 
(元 作用 在 上 =1 的 面 上 ) 


(4-43) 


其 中 
а ду ё 
әр OF дё 
lx д ë 

М= 27 эл Эт (4-44) 

& ә а 
ec er дс 


aris essers] e 


дп ef 06 т) \дтд& дп) \ 人 86186565 ag en 
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46 数值 积分 方法 


由 于 单元 形状 的 复杂 多 变 ， 进 行 等 参 变换 时 了 与 | 都 比较 复杂 。 在 单元 特性 矩阵 的 
计算 时 ， 尽 管 采用 自然 从 标 后 积分 限 规则 化 了 ， 但 是 除了 少数 的 情况 能 给 出 显 式 积分 外 ， 
一 般 都 需要 进行 数值 积分 ， 在 有 限 元 法 中 ， 计 算 单元 特性 矩阵 常 采用 Gauss( 高 斯) 积分 . 
464 一 维 数值 积分 

对 于 一 个 一 维 问题 的 数值 积分 | (5)d5 ， 其 基本 思想 是 ， 构 造 一 个 多 项 式 (E) ， 使 
在 各 (i=b2…) 上 有 WE)=F(&)， 然 后 用 近似 函数 GE) HRD [KEE 近似 原 被 积 
函数 P(E) 的 积分 | F(5)d5 ， 扎 称 为 积分 点 或 采样 点 ， 其 数目 和 位 置 决定 了 函数 W6) 对 


函数 FE) 的 近似 程度 ， 因 而 也 决定 了 数值 积分 的 精度 . 
在 Gauss 积分 方法 中 ， 积 分 点 名 的 位 置 由 下 述 方法 确定 。 首 先 定义 n 次 Lagrange( 拉 
FEBR HD) SUR PE) 


P(-6-&X6-&)-€-&)-T 6-6) (4-46) 
再 由 下 列 条 件 确定 个 积分 点 的 位 置 
f? #Р@а&=0 G-12,n-) (4-47) 
然后 构造 一 个 近似 多 项 式 OE). (nte BUY AS LAT 
96) - F(&) G=1,2,--..n) (4-48) 
该 近似 函数 可 由 下 式 确定 
#@= YI FE)+ Bé PG) (4-49) 
^ = 
AH, PIE) 是 n-1 阶 的 Lagrange 插值 多 项 式 
Ima = ESE = 4) E-E NEG) 6) (4-50) 


-ENE 75) 7 SMG 76.) 78) 
对 式 (4-49) 积 分 ， 可 得 


Í Ftba£ - | aypa «Sa [ Ра «n 
= = 
-YHFG)R (4-51) 


ia 


其 中 Ё 
н,= [ Qoya (4-52) 

Sb. 及 , 称 为 积分 的 权 系数 ， 是 一 个 只 与 积分 点 的 个 数 和 位 置 有 关 的 参数 . 
可 以 看 出 ，Gauss 积分 中 的 积分 点 是 不 等 间距 分 布 的 ， 近 似 被 积 函数 G(E) 是 一 个 包含 
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FE) @=1,2,›л)Ж18, (=0152…m-D 共 2n 个 系数 的 22-1 次 多 项 式 . 因此 ，n 个 
积分 点 的 Gauss 积分 可 达到 2m-1 阶 的 精度 ， 也 就 是 说 如 果 FE) 是 2n -1 次 多 项 式 ， 积 分 
将 是 精确 的 . 

为 了 便于 计算 积分 点 的 位 置 5 和 权 系 数 万 ,， 可 把 上 述 公式 中 的 积分 限 进行 规格 化 ， 
-ISESI 这 样 计算 得 到 的 和 妥 , 对 于 原 积分 域 (a,b)， 积 分 点 的 坐标 和 积分 的 权 系 


数 分 别 为 
a+b a-b b-a 


339 e 
4.6.0 ”二 维和 三 维 Gauss 积分 
将 一 维 Gauss 积分 扩展 成 多 重 积分 ， 即 可 得 到 二 维和 三 维 问题 的 Gauss 积分 . 
对 于 二 维 问题 
1= [вета | Унет = LHL rn) 
=È HH, FE m= DHF En) (4-54) 
stb, Н, Н, ME HE Gauss 积分 的 权 系数 ，n 是 每 个 坐标 方向 的 积分 点 数 . 
类 似 地 ， 对 于 三 维 数值 积分 ， 则 有 
1=[ f, [i Fm Odeande = УУУ ннн, m D 
= Y HL FG C) (4-55) 


‚лз 

dE EXE AX, BATT IS) EEA UA) AREH, СЕЗСЕ И, EE 
пж 坐标 方向 上 可 选取 不 同 的 积分 点 数 ， 即 由 具体 情况 采用 不 同 阶 的 积分 方案 ， 表 42 
中 列 出 了 在 积分 域 (-5D 内 ，n=1~6 的 Gauss 积分 点 位 置 和 权 系数 的 值 . 


#42 Gauss 积分 的 积分 点 坐标 和 权 系 数 的 值 


312 B n Santis 积分 权 系 数 H, 
1 0.00000 0.00000 0.00000 2.00000 0.00000 0.00000 
2 0.57735 0.02691 0.89626 1.00000 0.00000 0.00000 
0.77459 0.66692 0.41483 0.55555 0.55555 0.55556 
2 0.00000 0.00000 0.00000 0.88888 0.88888 0.88889 
+0.86113 0.63115 0.94053 0.34785 0.48451 0.37454 
4 0.33998 0.10435 0.84856 0.65214 0.51548 0.62546 
+0.90617 0.98459 0.38664 0.23692 0.68850 0.56189 
5 +0.53846 0.93101 0.05683 0.47862 0.86704 0.99366 
0.00000 0.00000 0.00000 0.56888 0.88888 0.88889 
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续 表 
жй айл 积分 点 坐标 所 积分 权 系数 H, 
+0.93246 0.95142 0.03152 0.17132 0.44923 0.79170 
6 +0.66120 0.93864 0.66265 0.36076 0.15730 0.48139 
3-0.23861 0.91860 0.83197 0.46791 0.39345 0.72691 


在 等 参 单元 的 数值 积分 计算 中 ， 还 需要 确定 数值 积分 的 阶 次 ， 数值 积分 阶 次 的 选择 要 
根据 保证 积分 的 精度 和 使 结构 总 体 刚 度 和 矩阵 非 奇 异 ， 具 体 可 参见 文献 [2]. 


47 应 用 问题 及 MATLAB 程序 


【 例 4.1】 用 Gauss 积分 计算 下 列 一 维 、 二 维 、 三 维 函 数 的 数值 积分 : 
(1) fQG)elex -38 44. (-1<х<1); 
Q) fG@,y)=1l+4xy-3222 &x*y*. (-1€ x €1,-1 € y <1); 
(3) (х, у,2) 21e Ax) y! - 3x zh + у‘; 
Hi MATLAB 编程 计算 ， 积 分 值 为 
(1) 2.6667; 
(2) 2.7810; 
(3) 10.1841. 
其 中 用 到 的 函数 为 GaussPoint1(No_points)， 用 于 计算 Gauss 积分 的 积分 点 和 权 系 数 . 
M 文件 如 下 ;: 


% Gauss quadrature of a function in one, two, three dimension 
% Problem descriptions 
% Integrate: 
(1) #(х)=1+х^2-3*х^3+4*х^5 (-1<x<1) 
(2) f(x,y)-l*4*x*y-3*x^2*y^24x^4*y^6 (-1<х<1, -1<у<1) 
(3) f(ü y,z)-144*x^2*y^2-3*x^2*z^4*y^d*z^6  (-1«(x, y, z) «1) 
Variable descriptions 


weights = weighting coefficients 


No INTpoint x - number of integration points along x-axis 
No INTpoint t = number of integration points along y-axis 
No INTpoint z - number of integration points along z-axis 


7 
E 
à 
E 
$ points - integration (or sampling) points 
à 
+ 
s 
s 


% (1) Select the problem 


clear; clc; 


MATLAB 有 限 元 结构 动力 学 分 析 与 工程 应 用 


Opt_problem=1; option for type of the beam: 

=1 One-dimensional function 

=2 Two-dimensional function 

=3 Three-dimensional function 
No INTpoint x >= 0.5*(Order_x+1) 
No INTpoint y >= 0.5*(Order у+1) 
No INTpoint z >= 0.5*(Order_z+1) 


No INTpoint x-5; 
No INTpoint y-0; 
"Мо INTpoint z 


Ф de Ф P o Ф а 


% (2) initialize the vectors 


point: 


eros (No_INTpoint_x,1); 
weightxezeros(No INTpoint x,1); 


pointy=zeros (No_INTpoint_y,1); 
weightyszeros(No INTpoint y,1); 


pointz-zeros(No INTpoint z,1); 
weightz-zeros(No INTpoint z,1); 


value-0.0; 


switch Opt problem 
case 1 
[pointx,weightx]eGaussPointl(No INTpoint x); 
$ extract integration points and weights 
for ii-1:No INTpoint x 
xepointx(ii); % sampling points in x-axis 
wtx-weightx(ii); $ weighting coefficients in x-axis 
func-léx^2-3*x^3*4*x^5; $ evaluate function 
value-value*func*wtx; 
end 
case 2 
[pointx,weightx]-GaussPointl(No INTpoint x); 
[pointy,weighty]-GaussPointl(No INTpoint y); 


% extract integration points and weights 
for ii- 


o INTpoint x 
x-pointx(ii); 
wtxeweightx(ii); 

for ij= 


% sampling points in x-axis 
$ weighting coefficients in x-axis 


:No INTpoint y 
y=pointy (ij); % sampling points in y-axis 
wty=weighty (ij) ғ % weighting coefficients in y-axis 
func-l*4*x*y-3*x^2*y^24x^4*y^6; $ evaluate function 
value-value*func*wtx*wty; 

end 
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end 
case 3 
[pointx,weightx]-GaussPointl(No INTpoint x); 
[pointy,weighty]-GaussPointl(No INTpoint y); 
[pointz,weightz]-GaussPointl(No INTpoint 2); 
$ extract integration points and weights 


for ii-1:No INTpoint x 
x-pointx(ii); % sampling points in x-axis 
wtx=weightx (ii); % weighting coefficients in x-axis 
for ij=1:No_INTpoint_y 

y=pointy (ij % sampling points in y-axis 
wty=weighty(ij) ғ % weighting coefficients in y-axis 
for ik=1:No_INTpoint_z 
z=pointz (ik); % sampling points in z-axis 
wtz=weightz (ik) ; % weighting coefficients in z-axis 
funcele4*x^2*y^2-3*x^2*z^4*y^4*2^6; % evaluate function 
value-value*func*wtx*wty*wtz; 
end 
end 
end 
otherwise 
disp('wrong number for problem') 
end 
value % print the solution 


function [pointl,weightl]-GaussPointl(No points) 


ro 


` 
% 


` 
% 
% 


Purpose: 
determine the integration points and weighting coefficients of 
Gauss quadrature 

Variable Description: 


No points - number of integration points 
pointl - vector containing integration points 
weightl - vector containing weighting coefficients 


(1) initialization of the vectors 


points-zeros(No points,1); 
weights-zeros(No points,1); 


(2) find corresponding integration points and weights 
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if No_point % 1-point quadrature rule 
point1(1) 
weightl(1) 

elseif No points--2 $ 2-point quadrature rule 
point1 (1) =-0.577350269189626; 


pointl(2)--pointl(1); 


weightl(1)-1.0; 
weightl(2)-weightl(1); 
elseif No points--3 $ 3-point quadrature rule 
pointl(1)--0.774596669241483; 
point1(2)-0.0; 
pointl(3)--pointl(1); 


weightl(1)-0.555555555555556; 
weightl(2)-0.888888888888889; 
weight1 (3)=weight1 (1); 

elseif No_points==4 * 4-point quadrature rule 
point] (1)=-0.861136311594053; 
point’ (2)=-0.339981043584856; 
point1(3)=-point1 (2); 
point1 (4)=-pointl (1); 


weight1 (1) =0.347854845137454; 

weight1 (2) =0.652145154862546; 
weightl(3)-weightl(2); 

weightl(4)-weightl(1); 

elseif No points--5 % 5-point quadrature rule 

pointl(1)--0.906179845938664; 
pointl(2)--0.538469310105683; 

pointl(3)-0.0; 

point1(4)=-point1 (2); 

pointi(5)--pointi(1); 


weightl(1)-0.236926885056189; 
weightl(2)-0.478628670499366; 
weightl(3)-0.568888888888889; 
weightl(4)-weightl(2); 
weights (5)-weightl(1); 

eiseif No points % 6-point quadrature rule 
pointl(1)--0.932469514203152; 
pointl(2)--0.661209386466265; 
point1 (3) =—0.238619186083197; 
point1(4)=-point1(3); 
pointl(5) 
point1 (6) 


0.3, 
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weight1(1)=0.171324492379170; 
weight1 (2) =0.360761573048139; 
weight 1 (3) =0.467913934572691; 
weight1 (4) =weight1 (3); 
weight1(5)=weight1(2); 
weight1(6)=weight1 (1); 
else 
disp('number of integration points should be') 
disp('» 0 ог < 7') 
end 


【 例 421 HHE TO ЕРТ БУ RAR PRL 4.10) 进 行 静 力 分 


+ 梁 的 长 度 和 高 度 分 别 为 8gm、1lm， 梁 材料 的 弹性 模 量 为 E=1.0x10s Pa， 泊 松 比 为 


梁 端 部 的 集中 载荷 为 1000N. 


A2 4 6 8 10 12 14 16 18 
| | 
Z 


П 
10|9|99] 0| 0| Ф|.# | 1000 


图 4.10 ERAH 


用 四 节点 四 边 形 等 参 单元 计算 该 短 花 辟 染 问 题 ， 单 元 的 划分 如 图 4.10 Bras. 

用 MATLAB 编程 计算 ， 其 中 用 到 的 函数 有 : 

© GaussPoint2(No_points) 一 一 用 于 计算 Gauss 积分 的 积分 点 和 权 系 数 . 

© Materialiso(iopt, Е, u) 一 一 用 于 计算 各 向 同性 材料 的 弹性 矩阵 . 

* Femlsoq4(rvalue, svalue) 一 一 用 于 计算 四 节点 四 边 形 等 参 单元 的 形 函 数 及 其 在 自 
然 坐标 系 下 的 导数 . 

FemJacobi2(No_nodeEl, dhdr, dhds, xcoord, ycoord) 一 一 用 于 计算 Jacobi 矩阵 . 
FemDeriv2(No_nodeEl, dhdr, dhds, invjacob) 一 一 用 于 计算 等 参 单元 的 形 函数 在 物 
理 坐 标 系 下 的 导数 . 

ә = FemKine2D(No_nodeEl, dhdx, dhdy) 一 一 用 于 确定 应 变 与 位 移 的 关系 . 

©  FemEldof(nd, No_nodeEl, No_dof) 一 一 用 于 确定 单元 在 系统 中 的 自由 度 . 

е FemAsmbll(kk, k, index) 一 一 用 于 组 集 系 统 和 矩阵 . 
е 

м 


FemAplyc2(kk, ff, bcdof bcval) 一 一 用 于 对 系统 方程 施加 约束 条 件 . 
文件 如 下 : 
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% Example 4.2 


g--- 


$ plane stress analysis of a cantilever beam using isoparametric 
four-node elements. (see Fig. 4-10 for the finite element mesh) 


$ (0) input data for control parameters 


No element-8; $ number of elements 

No nodeEl-4; $ number of nodes per element 

No dof-2; $ number of dofs per node 

No nodeSys-18; % total number of nodes in system 

Sys dof-No nodeSys*No dof; % total system dofs 

El dof-No nodeEl*No dof; % degrees of freedom per element 
enodule-1e6; % elastic modulus 

poisson-0.3; % Poisson's ratio 

nglx-2; ngly-2; * 2x2 Gauss quadrature 

nglxyenglx*ngly; % number of sampling points per element 


0.0 1.0; 
5 1.0; 
0 1.0; 
.5 1.0; 
0 1.0; 
5 1.0; 
0 1.0; 
5 1.0; 
0 1.0); 


2 $15. € 

3 5 7 8 

4 7 9 10 $ 

5 9 11 12 10; 

6 11 13 14 12; 

7 13 15 16 14; 

8 15 17 18 16]; 
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nodes- [nodes (:,2:5)]; 
Же 
% (3) input data for boundary conditions 


bcdof-[1 2 3 4]; % first four dofs are constrained 


beval=[0 0 0 0]; % whose described values are 0 


£f=zeros (Sys_dof, 1); % system force vector 
kkezeros(Sys dof,Sys dof); % system matrix 

displmtezeros(Sys dof,1); % system displacement vector 
eldispezeros(El dof,1); $ element displacement vector 
stress=zeros (nglxy,3); ` $ matrix containing stress components 
strain=zeros (nglxy, 3 $ matrix containing strain components 
index-zeros(El dof,1); $ index vector 
kinmtx2-zeros(3,El dof); % kinematic matrix 

matmtrx=zeros (3,3); % constitutive matrix 

te a 

% (5) force vector 

ace 

££ (34) «500; % force applied at node 17 in y-axis 

££ (36) 500; % force applied at node 18 in y-axis 
M = 


% (6) computation of element matrices and vectors and their assembly 


[point2,weight2]-GaussPoint2(nglx,ngly); % sampling points & weights 
matmtrx-Materialiso(l,emodule,poisson); ^ $ compute constitutive matrix 


for iel-1:No element % loop for the total number of elements 


for i-1:No nodeEl ч 
nd(i)=nodes (iel, i); % extract connected node for (iel)-th element 


xcoord(i)egcoord(nd(i),1); % extract x value of the node 
ycoord (i) -gcoord (nd (i) ,2); % extract y value of the node 

end 

К=2егоѕ (ЕІ dof,El dof); % initialization of element matrix to zero 
š= 


% (?) numerical integration and compute element matrix 
ro a 
for intx-l:nglx 


x=point2 (intx, 1); % sampling point in x-axis 
wtx=weight2 (intx, 1); % weight in x-axis 

for inty-l:ngly 

y-point2 (inty,2); % sampling point in y-axis 
wty-weight2(inty,2) ; % weight in y-axis 
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[shape, dhdr, dhds] =FemIsoq4 (х,у); % compute shape functions and 
% derivatives at sampling point 
jacob2-FemJacobi2(No nodeEl,dhdr,dhds,xcoord,ycoord); $ compute Jacobian 


detjacob-det (jacob2) ; $ determinant of Jacobian 
invjacob-inv (jacob2); $ inverse of Jacobian matrix 


[dhdx, dhdy]-FemDeriv2(No nodeEl,dhdr,dhds,invjacob); % derivatives w.r.t. 
$ physical coordinate 
kinmtx2-FemKine2D(No nodeEl,dhdx, dhdy) ; $ compute kinematic matrix 


k-k*kinmtx2!'*matmtrx*kinmtx2*wtx*wty*detjacob; $ compute element matrix 


end 
end $ end of numerical integration loop 


index=FemEldof (nd,No nodeEl,No dof); 
% extract system dofs associated with element 


kk=FemAsmb11 (kk, k, index); $ assemble element matrices 


(kk, ££] =FemAplyc2 (kk, ££, bcdof, bcval); 


% (9) solve the matrix equation 


displmt=kk\ff; 


num=1:1:Sys_dof; 


displacement=[num' displmt] % print nodal displacements 


for ielp=1:No_element % loop for the total number of elements 


for i-1:No nodeEl 


nd(i)-nodes (ielp,i); % extract connected node for (iel)-th element 
xcoord(i)-gcoord(nd(i),1); $ extract x value of the node 
усоога (1)-gcoord (nd(i),2); % extract y value of the node 


$ (10.1) numerical integration 
НЫНЫН ЫНЫН 
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E 


sampling point in x-axis 
weight in x-axis 


x-point2(intx,1); 
wtx-weight2 (intx,1); 
for inty-l:ngly 
y-point2 (inty,2); 
wty-weight2(inty,2) ; 
intp=intp+17 


e 


æ 


sampling point in y-axis 


” 


weight in y-axis 


(shape, dhdr, dhds]=FemIsoq4 (x,y); % compute shape functions and 
% derivatives at sampling point 
jacob2=FemJacobi2 (No nodeEl,dhdr,dhds,xcoord,ycoord); % compute Jacobian 


det jacob=det (jacob2) ; % determinant of Jacobian 
invjacob=inv (jacob2) ; % inverse of Jacobian matrix 


[dhdx,dhdy]-FemDeriv2(No nodeEl,dhdr,dhds,invjacob); % derivatives w.r.t. 
* physical coordinate 


kinmtx2-FemKine2D (No nodeEl,dhdx,dhdy); * kinematic matrix 


index-FemEldof (nd,No nodeEl,No dof); % extract system dofs for the element 


* (10.2) extract element displacement vector 
ei 

for i-l:El dof 
eldisp(i)-displmt (index(i)); 
end 


kinmtx2-FemKine2D (No nodeEl,dhdx, dhdy) ; * compute kinematic matrix 


- 


compute strains 
compute stresses 


estrain=kinmtx2*eldisp; 
estress=matmtrx*estrain; 


” 


for 1=1:3 
strain(intp,i)=estrain(i); 
stress(intp,i)=estress (i); 


op 


store for each element 
store for each element 


e 


end 


* 


location-[ielp,intx,inty] print location for stress 


stress (intp,:) % print stress values 
end 
end % end of integration loop 


$ The end 
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$-- 


function [point2,weight2]-GaussPoint2(No point x,No point y) 


$ Purpose: 

* determine the integration points and weighting coefficients 
E of Gauss quadrature for two-dimensional integration 

* 

% 

% (1) determine the largest one between No_point_x and No_point_y 
% Du 


if No point x » No point y 
ng-No point x; 

else 
ng-No point y; 


end 


point2-zeros (ng, 2) ; 
weight2=zeros (ng, 2); 


[pointx,weightx]-GaussPointl(No point x); % quadrature rule for x-axis 
[pointy,weighty]-GaussPointl(No point y); % quadrature rule for y-axis 
we E 

$ (4) quadrature for two-dimension 
` 


for ii=1:No_point_x % quadrature in x-axis 
point2(ii,1)=pointx(ii); 
weight2(ii,1)-weightx(ii); 

end 

for ij-1:No point y $ quadrature in y-axis 
point2(ij,2)-pointy(ij); 
weight2(ij,2)-weighty(ij); 

end 


$ Purpose 
% determine the constitutive equation for isotropic material 
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Variable Description: 
E - elastic modulus 


u - Poisson's ratio 


iopt-2 - plane strain analysis 


iopt-3 - axisymmetric analysis 
iopt-4 - three dimensional analysis 


7 
+ 
$ 
7 iopt=1 - plane stress analysis 
s 
7 
` 


% plane stress 
matmtrx= E/(1-u*u)* ... 
llu 0; . 
u 1 O. 
0 0 (1-u)/2); 

elseif iopt==: % Plane strain 
matmtrx= E/((1*u)*(1-2*u))* ... 


[(1-u) u 0; 
u (1-u) 0; 
0 0 (1-2*u)/2]; 


elseif iopt==3 % axisymmetry 
matmtrx= E/((1+u)*(1-2*u))* ... 


га-ш) u uF 
u (leu) а 0; 
ч u (-u O; 
0 0 0 (1-2*u)/2); 
else % three-dimension 
matmtrx- E/((1*u)*(1-2*u))* 
[(i-u) u u 0 0 07 
ч (1-0) u 0 0 0; 
ч ч (1-u) 0 0 ; 
0 0 0  (1-2*9/2 0 °; 
0 0 0 0 (1-2*u) /2 0; 
0 0 0 0 0 (1-2*u) /2]; 


$ Purpose: 
à compute isoparametric four-node quadrilateral shape functions and 
their derivatives 


* at the selected (integration) point in terms of the natural coordinate 
$ Variable Description: 

* shapeq4 - shape functions for four-node element 

$ dhdrq4 - derivatives of the shape functions 
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$  dhdsq4 - derivatives of the shape functions 

& rvalue - r coordinate value of the selected point 

$ svalue - s coordinate value of the selected point 

% Notes: 

% lst node at (-1,-1), 2nd node at (1,-1), 3rd node at (1,1), 4th 
` node at (-1,1) 


shapeq4 (1) =0.25* (1-rvalue) * (1-svalue); 
shapeq4 (2) =0.25* (1+rvalue) * (1-svalue) ; 
shapeq4 (3) =0.25* (1&rvalue)* (1«svalue); 
shapeq4 (4) -0.25* (1-rvalue) * (1+svalue) ; 


% (2) derivatives 

dhdrq4 (1 0.25* (1-svalue); 
dhdrq4 (2) =0.25* (1-svalue); 
dhdrq4 (3) =0.25* (1+svalue); 
dhdrq4 (4) =-0.25* (1+svalue); 


dhdsq4 (1) =-0.25* (1-rvalue); 
dhdsq4 (2) =-0.25* (1*rvalue); 
dhdsq4 (3) =0.25* (1+rvalue) ; 
dhdsq4 (4) =0.25* (1-rvalue); 


Purpose: 
determine the Jacobian for two-dimensional mapping 
Variable Description: 
jacob2 - Jacobian for one-dimension 


% 

% 

% 

% 

%  No_nodeEl - number of nodes per element 

$  dhdr - derivative of shape functions w.r.t. natural coordinate г 
&  dhds - derivative of shape functions w.r.t. natural coordinate s 
LI xcoord - x axis coordinate values of nodes 

` 


ycoord - y axis coordinate values of nodes 


jacob2=zeros (2,2); 


for i=1: No nodeEl 
jacob2 (1,1) -jacob2 (1, 1) +dhdr (i) *xcoord(i); 
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jacob2(1,2)=jacob2(1,2)+dhdr (i) *ycoord (i); 
jacob2 (2, 1)=jacob2 (2, 1) *dhds (i) *xcoord (i) ; 
jacob2 (2, 2) -jacob2 (2, 2) +dhds (i) *ycoord (i); 
end 


% Purpose: 
% determine derivatives of 2-D isoparametric shape functions with 
* respect to physical coordinate system 

% Variable Description: 

$  dhdx - derivative of shape function w.r.t. physical coordinate x 
*  dhdy - derivative of shape function w.r.t. physical coordinate у 
* —— No nodeEl - number of nodes per element 

%  dhdr - derivative of shape functions w.r.t. natural coordinate г 
$  dhds - derivative of shape functions w.r.t. natural coordinate s 
$ invjacob - inverse of 2-D Jacobian matrix 

t- 


for i=1: No_nodeEl 
dhdx (i)=invjacob (1,1) *dhdr (i) +іпујасоЬ (1,2) *dhds (i); 
dhdy (i)=invjacob (2,1) *dhdr (i) +іпујасоЬ (2,2) *dhds (1) ; 
end 


$ Purpose: 
% determine the kinematic equation between strains апа displacements 
% for two-dimensional solids 


% Variable Description: 

%  No_nodeEl - number of nodes per element 

%  dhdx - derivatives of shape functions with respect to x 
%  dhdy - derivatives of shape functions with respect to y 


for i-1: No nodeEl 
il-(i-1)*241; 

12=11+1; 
kinmtx2 (1, i1)=dhdx (i) ; 
kinmtx2 (2, i2) =dhdy (i); 
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kinmtx2 (3, i1)=dhdy (i); 
kinmtx2 (3,12) =dhdx (i); 
end 


Purpose: 
Compute system dofs associated with each element 
Variable Description: 


E 
+ 
+ 
% index - system dof vector associated with element " 
% nd - node connectivity for the (iel)-th element 

*  No_nodeEl - number of nodes per element 
3 No_dof - number of dofs per node 
+ 


k=0; 
for i=1: No_nodeEl 
start = (nd(i)-1)* No_dof; 
for j=1:No_dof 
k=k+1; 
index (k)-start*j; 
end 


$- 
$ Purpose: 

LI Assembly of element matrices into the system matrix 
% Variable Description: 

% kk - system matrix 

Li k - element matrix 

% index - d.o.f. vector associated with an element 

+ 


for j-l:edof 
jj=index (j); 


kk(ii,jj)-kk(ii,jj)*k(i,j); 
end 
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$ Purpose: 


è Apply constraints to matrix equation [КК] {x}={ff} 
$ Variable Description: 


kk - system matrix before applying constraints 


% 

% ff - system vector before applying constraints 
*  bedof - a vector containing constrained d.o.f 
* 


bcval - a vector containing contained value 


n-length (bcdof) ; 
sdof-size(kk); 


for і=1:п 
c=bcdof (i); 
for je1:sdof 
kk (c, 3) 20; 
end 
kk(c,c)=1; 
ff (c)=bcval(i); 


计算 结果 : 梁 自 由 端 部 沿 y 方向 的 位 移 为 0.2238m， 梁 固定 端 附近 积分 点 处 的 弯曲 应 
力 为 11 945Pa. 


жов 梁 与 刚 架 结 构 


5.1 基本 单元 分 析 


5.1.1 Euler-Bernoulli 梁 单元 


对 梁 结 构 的 分 析 ， 可 以 用 具有 两 个 端 部 节点 的 一 维 单元 进行 ， 单 元 的 变形 为 横向 位 移 
v 和 转角 9 ， 如 图 5.1 所 示 ， 称 为 梁 单元 (beam element). 


y 


I | 
ch “一 


图 5.1 梁 单 元 
假设 不 考虑 梁 的 剪 切 变形 ， 可 以 采用 Euler-Bernoulli ( 欧 拉 - 伯 努 利 ) 梁 的 假设 ;变形 前 
垂直 于 梁 中 心 线 的 截面 在 变形 后 仍 保持 垂直 于 粱 的 中 心 线 ， 如 图 52 所 示 . 按照 这 一 假 
设 ， 梁 弯曲 变形 时 的 运动 方程 为 
2 
pA + Seer 


А 
29-40) 6-1) 
Зн, У) 为 染 的 横向 位 移 ，p 为 梁 的 质量 密度 ， 4 为 梁 的 截面 面积 ，E 为 材料 的 弹性 


模 量 ，7 为 梁 的 惯性 矩 ， g(x,7) 为 外 载荷 :+ 和 x 分 别 为 时 间 和 梁 沿 中 心 轴 的 坐标 . 


y 


5.2 Euler-Bernoulli 梁 
利用 加 权 余 量 法 (weighted residual method) 趾 ， 式 (5-1) 的 残 差 为 


L av 
I= f. (pA 


式 中 ， 工 为 梁 的 长 度 ，w 为 试探 函数 . 


2 a 
1D -qwar=0 (5-2) 
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对 式 (5- о нй 有 
=| f° past У wd w ta- IN pwdx [m-n] =0 (5-3) 
a ox ах |, 


式 中 : M ABER. М = Еу Әх), AES. 
在 有 限 元 法 中 ， 将 梁 离 散 化 后 ， 上 述 方程 
ave aw) 
I= SL oak wdx + + Loree [9 - [mm 全 | =0 (5-4) 


式 中 ，42° 为 单元 的 定义 域 ，n 为 单元 的 数目 . 

根据 有 限 元 的 方法 ， 单 元 的 位 移 模式 应 满足 完备 性 和 协调 性 中 如 图 5.1 所 示 梁 单元 
的 横向 变形 和 转角 是 连续 的 ， 在 节点 处 须 有 表示 横向 位 移 和 转角 的 变量 w ЯП Ө, ИШЕ 
单元 具有 4 个 变量 ， 并 且 由 Euler-Bernoulli 假设 有 8 = dv/dx ， 取 单元 的 位 移 模式 为 三 阶 多 
项 式 函数 


у(х) = с, + ex ex^ + суу? (5-5) 
则 转角 为 
I A(x) =c, +2c,x +3сух? (5-6) 
单元 的 节点 位 移 可 表示 为 
S= 4 6] (5-7) 
将 单元 节点 的 坐标 代入 ， 有 . 
у(0) = с, = v, 
60) = - 6 
v) = с, *el *c +, =v, S9 
Ol) =c, * 2e +30, = 6, 
式 (5-8) 写 成 矩阵 形式 为 
v 100 0][, 
a| ото о |а| 
8° sU in P [la =AC (5-9) 
ej [0 1 20 3P jte 
其 中 
100 0 с 
ото 0 _ ja 
^h er рр caig 
012 3 6 


求解 式 (5-9)， 可 得 到 由 节点 变量 w” 和 表示 的 待定 系数 c . 将 这 些 系数 c 再 代入 式 
(5-5), 得 
v(x) = N,(x)v, + N,(x)8 + N, (х)», + N, (8, = Nó° (5-10) 
其 中 
N,21-32 «22, N,G)-(£-22 « £)l 
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№) =34° -28, NG)- CE € £I 
£-3-5, w-[M N, N, N] 


1 


式 (5-10) 中 的 函数 N,(x) 称 为 Hermite 形 函 数 ， 可 保证 相 邻 单元 在 边界 上 的 横向 位 移 和 转角 


(5-11) 


将 上 述 形 函数 代入 式 (5-4) 中 ， 并 且 由 Galerkin 法 在 方程 中 取 试 探 函数 为 w = N WA 
М, 5 
2 N, 6 
L AT ds = e Ж [№ N, N, N]dr ч 
М, à 


N У 
vaw | л | 
bE- SEI М [NJ N; ом ма x 
N ө, 
= |, BEJBdr5 = К°б° 
N, 
N, 


&=[ = [аса = F° 
[awa = fan Мыз feas NT ғ 
N, 
其 中 
i 
м = |, N'pANdx 
K' = | B'EI Bax 


B-[N М; N; N] 


(5-12) 


(5-13) 


(5-14) 


(5-15) 
(5-16) 


式 (5-14) 和 式 (5-15) 分 别 为 单元 的 质量 矩阵 和 刚度 矩阵 . 当 单元 内 的 质量 密度 p4 和 刚度 Er 


为 常量 时 ， 单 元 质量 矩阵 和 刚度 矩阵 为 
156 221 54 -13 
_pA| 221 4P 13 -3P 
420| 54 131 156 -22 
-13; -3P -221 4? 
12 6 -12 6 
EI} 6l- 4? -61 2P 
P|-12 -6 12 -6 
6 2? -6 4? 


(5-17) 


(5-18) 


其 中 ， 质 量 矩 阵 称 为 一 致 质量 矩阵 . 在 动力 学 分 析 中 ， 为 了 计算 方便 ， 有 时 也 采用 集中 质 
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BEBE 
гооо 
м: 22410 0 0 0 ij 
2/0010 
0000 
其 为 对 角 阵 ， 便 于 求 逆 . 
式 (5-13) 称 为 单元 力 向 量 , 当 梁 上 的 作用 力 9 为 均 布 载荷 ge 时 ， 单 元 力 向 量 为 
aa. P Rr й т 
Faq |= [чы Poe -n] (5-20) 
当 梁 上 作用 有 集中 载荷 号 (1) 时 ， 单 元 力 向 量 为 
N, N,(%) 
е u ПИЛДЕР М,(х,) г, 
Е* = | R@d(x-%) v, [87801 S (5-21) 
М, N,Q). 


RP, x, ЧТ p.) 的 作用 点 坐标 б(х— x,) 是 Dirac delta 函数 . 
式 (5-4) 左 边 的 第 四 项 为 梁 端点 前 力 和 论 和 矩 边界 条 件 ， 可 以 包含 在 系统 的 力 向 量 中 . 因 
此 ， 将 单元 矩阵 和 向 量 组 集 后 ， 方 程 (5-4) 变 为 如 下 的 矩阵 方程 
Mé+K65=F(t) (5-22) 
称 为 梁 结 构 的 系统 运动 方程 . 求解 该 方程 可 给 出 梁 的 动态 响应 . 


5.1.2 Timoshenko 梁 单 元 


在 Euler-Bernoulli 梁 单 元 中 没有 考虑 梁 的 剪 切 变形 . 在 工程 实际 应 用 中 ， 也 常常 会 遇 
到 需要 考虑 剪 切 变形 影响 的 情况 . 考虑 梁 的 剪 切 变形 时 可 以 采用 Timoshenko 梁 的 理论 . 对 
于 Timoshenko 梁 ， 原 来 垂直 于 中 面 的 截面 变形 后 不 再 和 中 面 垂直 ， 截 面 的 转角 变 为 
(5-23) 


图 5.3 ARBRE 


110 MALTAB 有 限 元 结构 动力 学 分 析 与 工程 应 用 
考虑 梁 任 一 截面 的 位 移 ， 有 
u(x, y) = -y6(x) (5-24) 
у(х)=у (5-25) 
RP: u(x, y) 为 梁 沿 轴 向 的 位 移 . 
由 式 (5-24) 和 式 (5-25)， 梁 的 轴 向 应 变 和 剪 切 应 变 为 


46 
c=% (5-26) 
dv 
r=- 6-27) 
这 里 用 最 小 势能 原理 来 导出 梁 的 矩阵 方程 . 梁 单 元 的 应 变 能 为 
u-lef |" s'Esddc elo f! | S ayar (528) 
2 Jo Jn 2 Jo Jw! k 


R(S-28P AA SU HET fb, 第 二 项 为 剪 切 变 形 能 . RH, b. AMIDWAR 
的 宽度 、 高 度 和 长 度 ，k 为 考虑 实际 剪 切 应 变 和 剪 切 应 力 不 是 均匀 分 布 而 引入 的 校正 因 
子 ， 对 于 和 矩形 截面 可 取 k=6/5 ， 对 于 圆 形 截面 可 取 上 = 10/9. 

将 式 (5-26) 和 式 (5-27) 代 入 式 (5-28) 中 ， 可 得 


=l EP Er . 1 [| Ca у бА бу, Р 
u=, f, GO EIC Сөн" E+ (5-29) 
其 中 
1=1 bay, а= | ьа 
= e. а=] му 
43) A REG AT A HE A TR. 
Timoshenko 梁 单元 中 ， 横 向 位 移 v 和 转角 9 是 独立 的 ， 可 各 自 独立 插值 ， 有 
v=[N м) (5-30) 
8-[N, MI (5-31) 
2 
式 中 ，N 和 N, 为 线性 形 函 数 
l m Ў 
N=70-$), N, =30+8) (5-32) 
其 中 
х= Nx + Ni, — (5-33) 


将 式 (5-30) 和 式 (5-31) 代 入 应 变 能 表达 式 (5-29)， 可 得 
1 [NE 2. ou 
i Gy zi yas - [8 alf {a xul 


: (5-34) 
-lge([ Br elsagis 
= «f, B'EI Bdx)5 -39 Ki6 
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1f ce y Gcor Sania olf и } 
1 [N 2 

“Ha als, [7 je мер 


k 
E vl fi Че D 


ib vl fi M sw DN (5-35) 
бА 1 mGA 
=56"1], NITE 7 Ne- f, м 2 Bà 
GA GA gage 
- Í "n в Вор 
P 
2 
其 中 
w 
6-16 ‚ N=[0 N, 0 Nj], 
v 
6, 
B=[0 N; 0 Nj], B=[N 0 N; 0] 
由 此 可 知 ，Timoshenko 粱 单元 的 刚度 矩阵 为 
=K; +K: (5-36) 
再 将 形 函 数 式 (5-32) 代 入 式 (5-34) 和 式 (5-35)， 可 得 弯曲 刚度 矩阵 和 前 切 刚度 矩阵 
0000 
. EO 1 0 -1 I 
8 =7 0000 6-37) 
0-10 1 
6 3 -6 3 
2 a Dp 
. G43 22 -3 [| isa 


'"6H|-6 -3 6 -3 
3x P -3 2P 


上 述 的 Timoshenko 梁 刚度 矩阵 用 于 注 梁 时 会 产生 误差 . 由 式 (5-37) 和 式 (5-38) 可 知 ， 
弯曲 刚度 矩阵 与 万 /成 正比 ， 而 剪 切 刚度 矩阵 则 与 1 成 正比 . 当 1 很 小 时 ， 将 导致 弯曲 


变形 项 可 忽略 不 计 ， 这 与 实际 情况 不 符 . 造成 这 种 现象 的 原因 是 横向 位 移 v 和 转动 采用 
同 阶 插值 表达 式 ， 使 得 剪 切 应 变 7 中 的 党 和 0 是 不 同 阶 的 ， 这 样 一 来 约束 条 件 


y- z -9=0 不 可 能 处 处 满足 ， 这 种 现象 称 为 剪 切 锁 死 (shear locking). Jy T Ж 4&3 83330] 
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锁 死 可 以 采用 减 缩 积分 (reduced integration) 的 方法 ， 即 在 数值 积分 时 用 比 精确 积分 要 求 少 
的 积分 点 数 . 对 于 二 节点 单元 ， 在 积分 剪 切 应 变 能 时 用 一 点 高 斯 积分 ， 有 
4 21 -4 2 


eom n — P 
TM| —4 -M 4 -2 
a P — P 
Timoshenko 梁 的 质量 矩阵 可 由 动能 表达 式 得 到 . 单元 的 动能 可 表示 为 
r-if, [5 rpibdndr= |, V pAsdx (5-40) 
RF, p 为 单元 的 质量 密度 . 
将 式 (5-30) 代 入 式 (5-40) 中 ， 得 


reh S joan. sala 


(5-39) 


N, % 
lr. 5 , gpl? 6 
=z å w ё] N pA[N, 0 N, 0O]dx à 
0 6, 
=1=([ мт ge | ger 
=;5"Ч, млм)" => 8 Mr (5-41) 


其 中 
N=[N 0 N, 9-0-2 0 Joo °] 
‚&=[ 8 w 6] 
于 是 Timoshenko 梁 的 单元 质量 矩阵 为 


(5-42) 


ооо о 


1 
0 
2 
0 

Timoshenko 梁 单 元 的 集中 质量 矩阵 与 式 (5-19) 相 同 . Timoshenko 梁 单 元 的 力 向 量 计算 
与 Euler-Bernoulli 梁 相同 . 

将 单元 矩阵 和 向 量 组 集 后 ， 梁 结构 的 矩阵 方程 为 

Mô + Kô = F(t) (5-43) 

称 为 梁 结 构 的 系统 运动 方程 . 求解 该 方程 可 给 出 梁 的 动态 响应 . 


5.1.3 ”考虑 剪 切 变 形 的 Euler-Bernoulli 梁 单元 


在 Euler-Bemoulli 梁 的 假设 中 忽略 了 剪 切 变形 的 作用 . 计 入 剪 切 变形 的 一 种 方法 是 对 
Euler-Bernoulli 梁 进 行 修正 ， 引 入 剪 切 变形 的 影响 . 
考虑 剪 切 变形 影响 时 ， 梁 的 横向 位 移 可 表示 为 
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v=v,+v, (5-44) 
式 中 :省 是 由 弯曲 变形 引起 的 横向 位 移 ，v 是 由 前 切 变 形 引起 的 横向 位 移 相应 地 ， 单 元 
的 节点 变量 也 表示 成 两 部 分 不 和 可 
8% = A vw ӨЇ,бт=[„ vaf (5-45) 
式 中 ， a-(&). &-(®). 即 几 仍 采用 和 不 考虑 剪 切 变 形 时 的 位 移 ， 可 用 Hermite 
| ! 
形 函 数 表示 . 而 w 中 只 有 两 个 节点 参数 ， 可 用 Lagrange 形 函 数 表示 ， 即 有 
v(x) = Му» + N,Q + N vy + NO, = М,бу 


(5-46) 
¥, (2) = Nj, + Му, N 0? 


其 中 
N-[N М, N, NJ], M-[M No] 


N,=1-367 +26, М(ху=(&-24%+у1, NG)232 -22, 
N,Q) =E + У,М,=1-&, N= 
ERE (5-47) 


将 式 (5-45) 和 式 (5-46) 代 入 式 (5-29) 表 示 的 应 变 能 表达 式 


lp fdaeT (dé), їр GA 
u=; Í, (2) m( Sae fl у =e 


P 1p (dé d'y d'y T aie ee uqi US 
MEL 
=t Í BLEL BS =1 6” Kr; (5-48) 

lp, yg tt (dv) баа) тар un GA : 

oA; 221463] (S Jas D (f. NT TE Nix ó; 
SU (f. BA nano: - Lo zo; (5-49) 


其 中 
B=[N N] NP Ni], B,=[N; м] 
再 将 式 (5-47) 表 示 的 形 函数 代入 式 (5-48) 和 (5-49)， 可 得 单元 的 弯曲 刚度 矩阵 和 剪 切 刚度 
和 矩阵 
12 6 -12 6 
gs E 9 АЁ -6 22 
^ P|-12 -6 12 -6 ico 
ы 2^ -6 4P 
. GA[1 -i 
M |] (5-51) 


下 面 计算 粱 单元 的 质量 矩阵 . 考虑 剪 切 变形 影响 时 梁 单元 的 动能 


hl. 
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v pibdydx | трава f’ рађа [v pao d 
240"? 25% 240 


(5-52) 
RP: b、 有 和 1 分 别 是 梁 的 宽度 、 高 度 和 长 度 ; p 为 质量 密度 . 
将 式 (5-45) 和 式 (5-46) 代 入 式 (5-52)， 得 
М, Л 
A ERTA A ó 
if рамз à ы AJ, [PAN № № мю, - 
N, 6, 
Lerep! NT ge _ | ger age ge 
= 58" J, NEPAN dd; = „бу Mié 
E ge Жы 1 [Ns Yn 
BT "E 
7367 (f; NT pAN дб; = „б Mz; 
再 将 式 (5-47) 表 示 的 形 函 数 代 入 式 (5-533) 和 (5-54)， 可 得 单元 的 质量 矩阵 
156 220 54 -13 
«РАЦ 21 42 13] -3P 
^ 420| 54 131 156 -221 6-59) 
-13 -32 -221 4? 
«Pall? 1 
М D H 6:56 
梁 单元 的 力 向 量 计算 与 Euler-Bernoulli 梁 相同 . , 
将 单元 矩阵 和 向 量 组 集 后 ， 梁 结构 的 矩阵 方程 为 
M,Š + K,6 = F,(r) 
(5-57) 


M,6 + K,6 = F,(t) 


称 为 梁 结构 的 系统 运动 方程 . 求解 该 方程 可 给 出 梁 的 动态 响应 . 


在 上 述 方程 中 ， 每 个 节点 有 3 


个 位 移 变量 ，w ，w 6. 实际 计算 中 ， 利 用 单元 的 


平衡 方程 和 几何 关系 可 以 消去 一 个 变量 ， 可 得 到 两 个 独立 变量 w 和 6 的 方程 路 此 时 ， 单 


元 刚度 矩阵 为 
о є -2 & 
. E |6 (4+bP -6 (2-b)? 
Са+юР|-2 -6 12 ы БЫУ) 
[6 (2-6)? -6 (4+b)? 
др, p= PEL, 
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514 BARAT 


混合 梁 单 元 是 同时 将 位 移 和 力作 为 变量 的 有 限 元 法 ， 有 利于 提高 梁 应 力 计算 的 精度 加. 
由 梁 变 形 时 的 挠 度 曲率 与 变 矩 的 关系 及 载荷 与 内 力 的 关系 ， 有 


M SEIS (5-59) 
d'M 
PEE] (5-60) 


AP: ERMA, J 是 梁 横 截面 的 面积 矩 . 
用 加 权 余 量 法 (weighted residual method)， 上 述 方程 的 残 差 为 


м5) а-о (5-61) 
пе а) (5-62) 


AP: 二 为 梁 的 长 度 ，w 为 试探 函数 . 
经 过 分 部 积分 ， ган 62) 变 为 
FJ Modes f; ES ax [wall =0 (5-63) 
J +° wade + f^ ах —[w,V], =0 (5-64) 
de. o- aR у= S ut. 
将 梁 离 散 化 后 ， 上 述 方程 变 为 


dv dw, 
> Iz [was + аа. [we], =0 (5-65) 
ўан f, md | -[wr] =0 (5-66) 
> 
SUP: 2 为 单元 的 定义 域 ， 为 单元 的 数目 . 
单元 的 节点 变量 为 
&'-[M M, v vw (5-67) 
对 MM 和 v 取 相同 的 形 函数 进行 插值 
M-NM,*N,M, (5-68) 
v=My, + N,v, (5-69) 
运用 Galerkin HK, Жм. wm WAE M 和 v 相同 的 形 函数 ， 对 于 一 个 单元 有 
2 ртм Ml] pany av Im]. y 
H LN ME (2) rS ME (5-70) 


(2) FAM --[ Tax [NV]. 61) 
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其 中 
N=[N, Nj] 


于 是 ， 单 元 的 平衡 方程 为 
K'ó-F 


xe [Ki KR 
Ki, 0 


其 中 


al qw 。_ f [aN Y an — 
=gh Ndr， x;- j(Z) qe Ki = K; 


天 =[9 & -2 Ж-О] 
9] ty 
= | N'gdx 
[2 |- лм 
对 于 线性 混合 染 单元 (如 图 5.4 BUR). W, 和 N, 可 取 为 线性 形 函数 
N=Z0-8), №=50+0 
其 中 


则 有 
2? P 68 -6EI 
_ 1| P 2? ЕГ 6EI 
7 6ЕП| 6EI -6E] 0 0 
-6E 6E 0 0 


图 5.4 线性 混合 梁 单元 


当 考 虑 梁 剪 切 变形 的 影响 时 ， 梁 变形 的 控制 方程 变 为 
M kdM dv 


(5-72) 


(5-73) 


(5-74) 


(5-75) 
(5-76) 


(5-77) 


(5-78) 


(5-79) 


(5-80) 


(5-81) 


A+: GRABBER: 4 是 梁 模 截面 面积 为 考虑 实际 剪 切 应 变 和 剪 切 应 力 不 
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是 均匀 分 布 而 引入 的 校正 因子 
同样 采用 Galerkin 方法 ， 得 到 单元 刚度 矩阵 的 计算 式 为 
Гк к i 
K [E d (5-82) 
其 中 


ЕГ?о GA | ) dx 
т 
ЕЗ) Kas Ks = Ke 
当 AM 和 "的 形 函 数 为 线性 函数 时 ， 单 元 刚度 矩阵 为 
2P+a P-a 6E1 —6ЕГ 
__1|[Ё-а 2Ё+а -6B1 6EI 
6EN| 6EI -6& 0 0 
-6E1 6EI 0 0 


K; = [iN Ne + É (5) Nar 
(5-83) 


(5-84) 


其 中 
_ 6EIk 


GA 
对 于 线性 混合 梁 单 元 的 集中 质量 矩阵 为 


а 


(5-85) 


(5-86) 


o-oo 
- © о о 


5.2 3E mg MJ 2 


刚 架 结构 系统 是 由 多 个 梁 构 件 组 成 的 结构 系统 . 如 果 组 成 刚 架 结构 的 梁 构 件 在 几何 上 
处 于 同一 平面 ， 并 且 结构 所 受 的 载荷 也 在 该 平面 内 ， 则 称 为 平面 刚 架 系统 . 刚 架 结构 可 以 
用 杆 - 梁 单 元 进行 离散 化 . 一 般 来 说 ， 单 元 不 再 是 单独 地 承受 拉 压 、 或 扭转 、 或 弯曲 载 
荷 ， 而 是 以 它们 的 共同 作用 来 工作 ， 单 元 的 特性 矩阵 将 是 几 种 单元 特性 矩阵 的 组 合 . 对 于 
平面 刚 架 ， 单 元 通常 承受 轴 向 拉 压 和 弯曲 载荷 . 此 外 ， 刚 架 的 构件 或 单元 一 般 不 处 于 同一 
轴线 上 ， 进 行 分 析 计算 时 ， 需 要 建立 一 个 共用 的 总 体 坐 标 系 ， 通 过 坐标 转换 将 单元 局 部 坐 
标 系 下 的 特性 矩阵 变换 到 总 体 坐 标 系 

平面 刚 架 的 单元 为 二 维 单 元 ， 一 般 承 受 轴 向 力 和 弯 矩 的 作用 ， 单 元 的 特性 是 轴 力 单元 
和 弯曲 单元 特性 的 组 合 . 在 小 变形 的 情况 下 ， 这 两 种 变形 间 的 耦合 可 以 和 忽略， 因而， 平面 
刚 架 单元 的 特性 矩阵 可 以 由 轴 力 单元 和 弯曲 单元 的 特性 矩阵 蚕 加 来 构成 

对 于 二 节点 单元 ， 在 单元 局 部 坐标 系 下 ， 节 点 变量 可 表示 为 

&-(u v 6 u, v, BY (5-87) 
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RP: и. v PHA ААО А КИЧ: 
弯曲 单元 采用 Euler-Bernoulli 梁 的 情况 下 ， 


K= 


质量 矩阵 为 


集中 质量 矩阵 为 
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6, 为 节点 处 截面 的 转角 . 


二 维 刚 架 单元 的 刚度 矩阵 为 
Аум o EAS 15 0 
1 1 
o ПОШ 6E „ DE 6Е 
Р n P p 
ó 61 эн Š E 28 
DEC <6 ov “EL гд 0 
П 1 
1281 _6Е I2E] — 6EI 
9 wg cgo Р р 
6E1 2ЕІ 6EI ДЕЈ 
0 2 0 IE. 
L D 1 Т ГАЙ 
140 о о 7 0 о 
0 156 2 0 54 -13l 
«РАЦ O 221 4^ 0 13 -3P 
420170 0 о 14 0 0 
0 54 13 0 156 -221 
0 -i3 -32 0 -22 а? 
100000 
010000 
. pA|0 00000 
|2|000100 
000010 
000000 


(5-88) 


(5-89) 


(5-90) 


采用 其 他 类 型 的 梁 单 元 ， 可 构成 不 同 的 二 维 刚 架 单元 特性 矩阵 . 车 用 Timoshenko 


梁 ， 则 刚度 矩阵 为 
БА. 
1 
о 0 
0 0 
-| ы : 
1 
0 0 
0 I 


EA 0 0 QB E 0 

“T° ° | |) S бл 4 GA GA 
0 0 0 0 kl 2k kl 2k 
ий o о 21| |, GA G4 , GA Gal 
1 D|| 2k ж 2k Ak 
o Eg || o ооо о 

i o -S4 _GA o Wa 
9 ооо kl 2k ы 2k 
EI 0 E GA СА GA Gal 
I 1 2k а 2k 4 
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一 0 0 -一 0 0 
1 1 
0 СА СА o 64 GA 
kl 2k kl 2k 
o GA GA E 4 GA GA Е 
-| a 2k 4 | x 2k 4k | (5-91) 
-一 0 0 = 0 0 
1 1 
o 94 _GA o $94 GA 
kl 2k kl 2k 
o GA G4 E 4 GA GAIEI 
L 2k 4k | 2k 4k | 
质量 矩阵 为 
200100 000000 
000000 020010 
m -240 00 00 0| pajo 0 0 0 0 0 
6|1100200| 61000000 
000000 010020 
(000000 000000 
[200100 
020010 
.p4|lo00000 532) 
6 1 002 00 
010020 
[000000 
而 集中 质量 矩阵 与 式 (5-90) 相 同 . 


如 前 所 述 ， 由 于 刚 架 系统 中 单元 的 局 部 坐标 方向 各 异 ， 单 元 的 特性 矩阵 需要 通过 平面 


坐标 变换 转换 到 总 体 坐 标 系 上 . 如 图 5.5 所 示 为 总 体 坐 标 系 中 的 平面 刚 架 单元 . 其 中 ， 总 
体 坐 标 系 用 元 了 表示; 局 部 坐标 系 用 xy 表示 . 


图 5.5 总 体 坐 标 系 与 局 部 坐标 系 
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c s0 


由 图 5.5 可 见 ， 局 部 坐标 系 与 总 体 坐 标 系 的 关系 为 
-з c 0 


х x 
у= y (5-93) 
0 0 0 14/8 


Kt, c=cosB; s=sin8. 其 中 ，p 为 局 部 坐标 系 相应 于 总 体 华 标 系 轴 的 夹 角 . 
因而 ， 局 部 坐标 系 下 的 单元 节点 位 移 与 总 体 坐 标 系 中 的 单元 节点 位 移 的 关系 为 


u] [e so о o of 
у | |-s со о 0 oll 
aljo 91 o 0 oa (5-94) 
„(10 00 c s Ой, 
v, 0 00 -s c 0||y, 
aj 10 0 0 o o 12 
写成 矩阵 形式 ， 有 
б°=Тб* (5-95) 
其 中 
c s0000 
-sc 0000 
001000 
T= ooo cso e 
000-sc0 
0 00 0 0 1] 
将 式 (5-96) 代 入 有 限 元 的 方程 中 ， 并 对 方程 前 乘 T7 ， 即 可 得 到 转换 到 总 体 坐 标 系 下 的 
单元 特性 矩阵 
K'=T'K'T, М*=Т'М*Т (5-97) 
和 力 向 量 
F-TF (5-98) 
将 单元 矩阵 和 向 量 组 集 后 ， 刚 架 结构 的 运动 方程 为 
Мё+Кб=Р() (5-99) 


5.3 空间 刚 架 


组 成 刚 架 结构 的 梁 构 件 在 几何 上 不 处 于 同一 平面 ， 或 结构 所 受 的 载荷 不 在 结构 的 平面 
内 ， 则 称 为 空间 刚 架 系统 . 空间 刚 架 结构 除了 承受 拉 压 和 弯曲 载荷 作用 外 ， 还 可 承受 扭矩 
作用 ， 而 且 弯曲 变形 可 能 同时 在 两 个 坐标 平面 内 存在 ， 单 元 的 特性 矩阵 将 是 几 种 单元 特性 
和 矩阵 的 组 合 . 

空间 刚 架 的 单元 为 三 维 单元 ， 一 般 承受 轴 向 力 、 弯 矩 和 扭矩 的 作用 ， 单 元 的 特性 是 轴 
力 、 弯 曲 和 扭转 单元 特性 的 组 合 . 在 小 变形 的 情况 下 ， 空 间 刚 架 单元 的 特性 矩阵 可 以 由 轴 
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FB IC. оН ТРЕ PE Pk ЖН. 
对 于 二 节点 单元 ， 在 单元 局 部 坐标 系 下 ， 节 点 变量 可 表示 为 
S-[u w w 6, 6, 0, ш w w Ba Ba Gu] (5-100) 
RP, и, vy. w AU XR AREER A: 0... 0,. 0, WTAE 处 截面 绕 3 个 
坐标 轴 的 转角 . ЖР, Ө, 表示 截面 的 扭转 ，6, 和 8, 分 别 表示 截面 在 xz ЖП ху 坐标 平面 内 
的 转动 . 
节点 力 可 表示 为 
F'-[U V, W M, M, M, U, V, W, Ma My Mal (5-101) 
Rp: UTA: Vo. W RES Е хт ЖП ху DPA, ML A I 
的 扭矩 My. M, FEI RA i TE xz fü xy AARP T PL ZAR. 
弯曲 单元 采用 Euler-Bernoulli 梁 的 情况 下 ， 三 维 刚 架 单元 的 刚度 矩阵 为 


a о о 0 о о E 0 0 о o 0 
12ЕІ, 6EI, 12EI, 6EI, 
ьо 0 0 T5 o -® ° о $$ 

1281 6EI, 12E1 6EI, 
P Š = r 0 0 E a nt 0 
= 0 0 0 0 0 E 0 0 
4ЕІ, T, 
з 0 0 о 56 , 2, , 
1 r 1 
48, 0 — 6H б о о 28 
m 1 n 1 
EA 
m o 0 o 0 о 
12ЕГ, 6EI, 
对 ° о o -5® 
2н, SE, 0 
Т n 
GJ 
= 0 
z о 
їй, 
称 一 一 0 
Т 
4El, 
Wi 
(5-102) 


RP: 4 为 单元 的 模 截 面 面 积 ，7, ЖЕЛЕ xz AERE TS ART REE; LL 是 在 xy 坐标 平面 
内 的 截面 惯性 矩 ，/ 是 单元 的 极 惯性 矩 . 
质量 矩阵 为 
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[140 0 о о 0 
1 6 0 0 о 
156 0 -22 
M, 
A 
ar 
e „РА 
420 
对 
称 
而 集中 质量 矩阵 为 
1000 
100 
10 
J 
A 
м = 244) 
2 
对 


弯曲 单元 采用 Timoshenko 梁 的 情况 下 ， 


0 70 0 0 0 
21 0 5 0 0 
ооо 54 O 
оо о о W 
4 
0 0 0 чз 0 
4 0 134 0 0 
140 0 0 O 
1566 0 0 
156 0 
140, 
A 
00000000 
00000000 
00000000 
00000000 
00000000 
0000000 
100000 
10000 
1000 
Jo 
A 
称 0 0 
0] 
三 维 刚 架 单元 的 刚度 矩阵 为 


4р 


ар | 


(5-103) 


(5-104) 
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a 0 0 0 0 0 E 0 0 0 0 0 
Ao о 0 a o -4 о о 0 ES 
kl 2k kl 2k 

GA GA GA GA 
b E ° ЖЫ: 2k M 
e 0 0 0 0 0 -Z 0 0 
ол, о o „ ба G4 8, 0 
4k 1 2k 4k 1 
G4 E, o GA o o o — G4 E, 
K- 4k 7 2k 4k | 
a 0 0 0 0 0 
Р GA GA 
对 нл `9 0 0 == 
GA GA 
и ° x ° 
= 0 0 
1 
сл E, 
* AUT. б 
GAI ЕГ, 
GA „EL 
4k 1 
(5-105) 
质量 矩阵 为 
г оо о 00100 о 0 о] 
200 00010000 
2000001 о оо 
22 ооооо 7 оо 
А А 
00000000 
pAl 0000 000 
M - P4. 5-10 
6 2 оо о оо 6109) 
对 20 000 
2000 
23 оо 
y 
称 0 0 
L 0] 


而 集中 质量 矩阵 与 式 (5-104) 相 同 . 
对 于 空间 刚 架 单元 ， 局 部 坐标 系 与 总 体 坐 标 系 的 转换 矩阵 为 
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0 0 
0 0 
10 
ог 


其 中 
cos(x,x) cos(x,y) cos(x,z) 
t=| cos(y,¥) cos(y,y) cos(y,z) 
cos(z,X) cos(z,y) cos(z,z) 
其 中 ， 子 矩阵 ! 的 第 1 行 可 由 节点 的 坐标 计算 


соол) e 272, cosy) 20, соѕ(х,2)= 


172405 -x) + - y) *(5 -zY 
而 子 矩 阵 z 其 他 行 的 确定 需要 用 一 个 辅助 参考 坐标 系 x 一 y' 一 z' 的 . 
辅助 参考 坐标 系 交 -多 一 z 与 总 体 坐 标 系 王 -了 - 工 间 的 转换 矩阵 为 


A4 


1 m n 
"NP 
4 4 
т тп 4 
a a 
其 中 
cos(x,X)- G =1, cosy) = 81730 m 
cos(x,Z) G DS =n ¿= J +m 
其 中 


L=&,-%) +(У,-Ў,)* *(G,-z) 
而 辅助 参考 坐标 系 忆 -多 -z" 与 局 部 坐标 系 x-y~z 的 转换 矩阵 为 
1 0 0 
t,=|0 cosa sina 
0 -sing cosa 


(5-107) 


(5-108) 


(5-109) 


(5-110) 


(5-111) 


AF, a 是 局 部 坐标 系 》 轴 相应 于 辅助 坐标 系 轴 的 夹 角 . 于 是 ， 子 矩阵 + 可 表示 为 


1 o o]! To 
t=tt,=|0 cosa sina IE E 0 
0 -sina cosa nom 
4 4 


(5-112) 


若 单元 与 总 体 坐 标 系 垂直 ， 即 单元 的 x 轴 平行 于 总 体 坐标 系 的 三 轴 ， 则 变换 矩阵 妨 变 
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0 0 1 
t,=|-sina cosa 0 (5-113) 


-cosa -sina 0 


因此 ， 局 部 坐标 系 下 的 单元 节点 位 移 与 总 体 坐标 系 中 的 单元 节点 位 移 的 关系 可 写成 
5 =т5* (5-114) 
将 式 (5-114) 代 入 有 限 元 的 方程 中 ， 并 对 方程 前 乘 T7 ， 即 可 得 到 转换 到 总 体 坐 标 系 下 
的 单元 特性 矩阵 V 


K-DlKT. М°=Т'М'Т (5-115) 
和 力 向 量 
F-TF (5-116) 
将 单元 矩阵 和 向 量 组 集 后 ， 刚 架 结构 的 运动 方程 为 
Më + Kë = F(t) (5-117) 


5.4 ”应 用 问题 与 MATLAB 程序 


对 于 本 章 讨论 的 梁 和 刚 架 的 分 析 ， 可 用 MATLAB 来 实现 .下 面 以 实例 来 介绍 基于 
MATLAB 的 应 用 问题 . 


5.4.1 静 力 学 问题 分 析 


对 于 梁 或 刚 架 的 静 力 学 分 析 ， 有 限 元 方程 变 为 
Kó-F (5-118) 

式 中 的 矩阵 和 向 量 为 经 过 组 集 后 系统 矩阵 和 向 量 ， 且 均 为 总 体 坐 标 系 下 的 表示 式 . 在 不 至 
于 混淆 的 情况 下 ， 为 了 方便 ， 本 书后 面 在 表示 总 体 坐 标 系 的 矩阵 和 向 量 时 将 省 略 ““ ”的 
符号 . 

ОЙ 51] 对 于 如 图 5.6 所 示 的 简 支 粱 ， 梁 的 长 度 为 Im， 横 截面 面积 为 0.02X0.02m2， 
梁 的 弹性 模 量 为 2.1X 10"Pa， 质 量 密度 为 7 860kg/m?. 在 梁 的 中 部 作用 有 -500N 的 力 ， 分 
别 用 Euler Bernoulli 梁 单 元 和 Timoshenko 梁 单元 计算 梁 的 变形 . 


pos 


1 41 


21 E 


x. B56 简 支 梁 模型 
将 图 5.6 所 示 简 支 梁 划 分 成 40 个 单元 进行 有 限 元 分 析 ， 用 MATLAB 编程 计算 ， 其 中 
主要 用 到 的 MATLAB 函数 ( 见 5.5 节 ) 有 : 
©  BeamElementl(prop,leng,Opt mass)——-H Euler Bernoulli 梁 单元 计算 单元 的 刚度 
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矩阵 k 和 质量 矩阵 m. 

© BeamElement2(prop,leng,Opt_mass) 一 一 用 Timoshenko 梁 单元 计算 单元 的 刚度 矩 
阵 k 和 质量 矩阵 m. 

е ”femEldof(tnd,No_nel,No_dof) 一 一 计算 单元 自由 度 对 应 到 结构 系统 上 的 自由 度 . 

e ”femAssemblel(kk,k,index) 一 一 用 于 将 单元 刚度 矩阵 或 质量 矩阵 组 集 到 系统 的 总 体 
刚度 矩阵 kk 或 总 体质 量 和 矩阵 mm. 

e femApplybc1(kk,mm,ff,bcdof;,beval) 一 一 对 结构 系统 施加 边界 条 件 . 

M 文件 如 下 : 


To solve the static response for a beam structure 
using Euler Bernoulli beam or Timoshenko beam element. 

Problem description 
Find the deflection of a simply supported beam whose length is 1 m. 
The beam has elastic modulus of 2.1x10^11 and its cross-section is 
0.02 m height by 0.02 m width. 
The mass density is 7860 kg/m^3. A concentrated load of -500 N is 


applied at the middle of the beam. 


k, m - element stiffness matrix and element mass matrix 
kk, mm - system stiffness matrix and system mass matrix 

ff - system force vector 

index - a vector containing system dofs associated with each element 
bcdof - a vector containing dofs associated with boundary conditions 
bcval - a vector containing boundary condition values associated 
with the dofs in bcdof 


% 
% 
% 
% 
% 
% 
% 
% 
% Variable descriptions 
* 
% 
% 
% 
% 
% 
% 


% (0) input data 


clear; clc; 


Beam InputData541; % import the input data for the information of 
% nodes, elements, loads, constraints and materials 
Opt beam-1; % option for type of the beam: 
$ -1 Euler Bernoulli beam 
$ -2 Timoshenko beam 
Opt mass-2; $ option for mass matrix: 
$ -1 consistent mass matrix 
% -2 lumped mass matrix 
Opt graphicsi-l; $ option for graphics of the nodal connectivity 
$ option for graphics of the static deformation 


* (1) initialization of matrices and vectors to zero 
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eros(No nel*No dof,No nel*No доғ); $ element stiffness matrix 
m-zeros(No nel*No dof,No nel*No dof); $ element mass matrix 


kkezeros(Sys dof,Sys dof); % initialization of system stiffness matrix 
mm-zeros(Sys dof,Sys dof);  $ initialization of system mass matrix 


ff-zeros(Sys dof,l); % initialization of system force vector 
index-zeros(No nel*No dof,1); $ initialization of index vector 
bcdof-zeros (Sys dof,1); % initializing the vector bcdof 
bcvalezeros (Sys dof,1); % initializing the vector bcval 
css " 

+ 

- 


[nlvn2 ize (ConNode) ; 
% calculate the constrained dofs 
for пі=1:п1 
ki=ConNode (пі,1); 
bcdof((ki-1)*No dof*1:ki*No dof)-ConNode(ni,2:No dof*1); 
$ the code for constrained dofs 
beval ( (ki-1) *No_dof+1:ki*No_dof)=ConVal (ni,2:No_dof+1); 
% the value at constrained dofs 


for iel=1:No_el % loop for the total number of elements 
nd(1)=iel; * 1st node number of the iel-th element 
nd(2)-iel*1; % 2nd node number of the iel-th element 


х(1) =дсоога (па (1),1); y(1)=gcoord(nd(1),2); z(1)-gcoord(nd(1),3); 
% coordinates of 1st node 
x(2)-gcoord(nd(2),1); y(2)=gcoord(nd(2),2); z(2)-gcoord(nd(2),3); 
$ coordinates of 2nd node 
lengesart ( (x (2) -x (1) ) ^2* (y (2) -y (1)) ^2* (z (2) -z (1)) ^2) ; 
% length of element 'iel' 
if Opt beam--l 
(k,m]=BeamElement1 (prop, leng, Opt_mass) ; 
% compute element matrices for Euler-Bernoulli beam 
else 
(k,m]=BeamElement2 (prop, leng, Opt_mass) ; 
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% compute element matrices for Timoshenko beam 
end 


index=femEldof (nd,No nel,No dof); 
$ extract system dofs associated with element 


kk=femAssemblel (kk, k, index) ; % assemble system stiffness matrix 
mm-femAssemblel.(mm,m, index) + $ assemble system mass matrix 


end 


% (5) apply constraints and solve the matrix equation 


[kk1,mnl, ££1] -femApplybcl (kk, mm, ££, bcdof , beval. 
$ apply boundary conditions to the system equation 


displmt=kk1\ff1; 
% solve the matrix equation 
di-Sys dof/No dof; 
for iiel:di 
for jj-1:No dof 
displmtnode (ii, jj) =displmt (No dof*(ii-1)*jj,1); 
end 


E-prop(1); Iz-prop(8); L-1; 
nk=ceil (No_node/2) ; 


for ii=l:nk 
Lx-(ii-1)*dx; 
c-P (1) / (48*E*Iz); 
Asolution (11,1) =с* (3*L^2-4*Lx^2)*Lx; 
Asolution(ii,2)-c* (3*L^2-12*Lx^2); 
end 
for ii-nk*l:No node 
Lx-(ii-1)*dx; 
c-P (1) / (48*E*Iz); 
Asolution (ii,1)-c* ((3*L^2-4*Lx^2) *Lx* (2*Lx-L) ^3) ; 
Asolution(ii,2)-c* ((3*L^2-12*Lx^2) +6* (2*Lx-L) ^2) ; 
end 


% (7.1) display the nodal connectivity 
&-- 
if Opt graphicsil 
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for iel=1:No_el % loop for the total number of elements 

nd(1)=iel; $ 1st node number of the iel-th element 

nd(2)=iel+1; % 2nd node number of the iel-th element 

x(1)=gcoord(nd(1),1); y(1)=gcoord(nd(1),2); z(1)-gcoord(nd(1),3); 
$ coordinates of 1st node 

%(2)=gcoord(nd(2),1); y(2)-gcoord(nd(2),2); z(2)-gcoord(nd(2),3); 
$ coordinates of 2nd node 


figure(1) 
plot(x,y), xlabel('x'), ylabel('y'), hold on; 
axis([-0.1,1.1,-0.01,0.01]) ; 
end 
if Opt graphics2--1 
title('nodal connectivity of elements'), hold off; 


% (7.2) display the static deformation 
8-- 
if Opt graphics2--1 

gcoordA-gcoord* [zeros (No node,1),displmtnode(:,1), zeros (No node,1)]; 


for iel-1:No el * loop for the total number of elements 
nd(1)=iel; % 1st node number of the iel-th element 
па (2) =іе1+1; % 2па node number о? the iel-th element 


х(1)=дсоогаА(па(1),1); y(1)=gcoordA(nd(1),2); 2(1) =дсоогад (па(1),3); 
% coordinates of 1st node 

x(2)-gcoordA(nd(2),1); y(2)=gcoordA(nd(2),2); z(2)=gcoordA(nd(2),3); 
% coordinates of 2nd node 


figure (1) 
plot (x,y,'r'), title('Deflection of the structure'), hold on; 
end 
hold off 
end 


disp('The calculation is use of:') 
if Opt_beam==1 
disp('Euler-Bernoulli beam') 


else 
disp('Timoshenko beam element") 

end 

disp(' ') 

disp(' numrical analytical') 

disp(' node y e M 9) 


num-1:di; 
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displacements=[num' displmtnode Asolution]  $ print nodal displacements 


Prob title-'static analysis of beam structure'; 


No el-40; $ number of elements 
No nel-2; % number of nodes per element 

No dof-2; % number of dofs per node 

No node-(No nel-1)*No е1+1; % total number of nodes in system 
Sys dof-No node*No dof; $ total system dofs 

" 

% (0.2) physical and geometric properties 

резене 


ргор(1)= % elastic modulus 


ргор(2)=0.3; % Poisson's ratio 
ргор(3)=7860; 

prop (4)=0.02; 
ргор(5)=0.02; 

prop (6) =0.02*0.02; 
ргор(7) =0.02*0.02^3/12; 
prop(8)70.02*0.02^3/12; 


mass density (mass per unit volume) 
height of beam cross-section in y direction 
width of beam cross-section in z direction 
cross-sectional area of the beam 

moment ©Ё inertia of cross-section about axis y 
moment of inertia of cross-section about axis z 


Ф e» 


* x, y, z coordinates in global coordinate system 
xx-zeros(No node,1); yy-zeros(No node,1); zz-zeros(No node,1); 
dx-0.025; 

xx-0:dx:(No node-1)*dx; xxexx'; 

gcoord=[xx yy 22]; 


P-[-500,21,1]; % load applied at node 21 in the negative y direction 


&-- 


% (0.5) boundary conditions 


H $ code for constrained nodes 
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41, 1, 0]; 
ConVal =[ 1, 0, 0;... % values at constrained dofs 


41, 0, 0); 


分 别 用 Euler Bernoulli 梁 单 元 和 Timoshenko 梁 单 元 计算 梁 的 变形 ， 并 与 解析 解 比 
较 ， 见 表 5.1. 


R51 有 限 元 解 与 解析 解 的 比较 


——'rE—c s R SƏ-— 


X ARAR m" 
v ө | >» | Ө 
z 0 -0.0112 0 -0.0112 
2 -0.0003 -0.0111 -0.0003 -0.0111 
3 -0.0006 -0.0110 70.0006. 70.0110 
4 70.0008 70.0109 70.0008. 70.0109. 
5 70.0011 70.0107 70.0011 70.0107. 
6 70.0014 70.0105 70.0014. 70.0105 
y: 70.0016. 70.0102 70.0016 70.0102 
8 70.0019 70.0098 70.0019. 70.0098 
9 70.0021 0.0094 70.0021 70.0094. 
10 70.0023 -0.0089 -0.0023 -0.0089 
1 -0.0026 -0.0084 70.0026 70.0084 
12 70.0028 70.0078 70.0028 70.0078 
13 -0.0029 70.0071 -0.0029 -0.0071 
14 -0.0031 -0.0064 -0.0031 70.0064 
15 70.0033 70.0057 70.0033 70.0057 
16 70.0034 70.0049. 70.0034 70.0049 
17 -0.0035 -0.0040 -0.0035 -0.0040 
18 -0.0036 -0.0031 -0.0036 -0.0031 
19 -0.0037 -0.0021 70.0037 70.0021 
20 70.0037 70.0011 70.0037 70.0011 
21 70.0037 0.0000 70.0037 0 


41 0.0112 0112 


ОЙ 5.2] 对 于 如 图 5.6 所 示 的 简 支 梁 ， 用 混合 梁 单 元 计算 梁 的 变形 . 
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% Example 5.2 

% To solve the static response for a beam structure using mixed beam elements. 
% nodal dofs: {М1 vl M2 v2} 

% Problem description 

% Find the deflection of a simply supported beam described in Example 5.4.1. 


$ (0) input data 


clear; clc; 


import the input data for the information 

of nodes, elements, loads, constraints and materials 
option for mass matrix: 

=1 consistent mass matrix 

-2 lumped mass matrix 

option for graphics of the nodal connectivity 
option for graphics of the static deformation 


Beam InputData542; 


Opt mass 


Opt graphicsl-1; 
Opt graphics2 
ъ-- 

% (1) initialization of matrices and vectors to zero 


e e Ф P p P p 


k=zeros (No_nel*No_dof, No_nel*No_dof); % element stiffness matrix 
mezeros(No nel*No dof,No nel*No dof); % element mass matrix 


kkezeros(Sys dof,Sys dof); % initialization of system stiffness matrix 
mmezeros(Sys dof,Sys dof); % initialization of system mass matrix 


ff-zeros(Sys dof,1); $ initialization of system force vector 
index=zeros (No nel*No dof,1l); % initialization of index vector 
bedof=zeros (Sys_dof,1); $ initializing the vector bcdof 
beval=zeros (Sys dof,l); $ initializing the vector bcval 


* (2) calculation of constraints 


[n1,n2]-size (ConNode) ; 


$ calculate the constrained dofs 
for ni-1:nl 
ki-ConNode (ni,1); 
bedof ( (ki-1) *No_dof+1:ki*No_dof) =ConNode (ni,2:No dof*1); 
% the code for constrained dofs 
bcval((ki-1)*No dof*l:ki*No dof)-ConVal(ni,2:No dof*1); 
$ the value at constrained dofs 
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ff(No dof* (P(2)-1)+P(3))=-P(1); 


$ loop for the total number of elements 
nd(1)-iel; % 1st node number of the iel-th element 
nd(2)=iel+1; % 2nd node number of the iel-th element 
x(1)-gcoord(nd(1),1); y(1)=gcoord(nd(1),2); z(1)-gcoord(nd(1),3); 

* coordinates of 1st node 
x(2)-gcoord(nd(2),1); y(2)-gcoord(nd(2),2); z(2)-gcoord(nd(2),3); 

$ coordinates of 2nd node 
lengesqrt ( (x (2) -x (1) ) ^2+ (y (2) -y (1)) ^2* (z(2) -z (1) ^2) ; 
% length of element 'iel' 


[k, m] -BeamElement4 (prop,leng,Opt mass); 
$ compute element matrices for mixed beam 


index-femEldof (nd,No nel,No dof); 
$ extract system dofs associated with element 


kk=femAssemblel (kk, k, index) ; $ assemble system stiffness matrix 
mm-femAssemblel(mm,m, index); * assemble system mass matrix 


[kk1,mm1, ££1]=femApplybel (kk, mm, ff, bcdof, beval) ; 
% apply boundary conditions to the system equation 
displmt=kk1\f£1; % solve the matrix equation 


di-Sys dof/No dof; 
for ii i 


for jj=1:No_dof 
displmtnode (ii, jj)-displmt(No dof*(ii-1)*jj,1); 
end 


E-prop(1); Iz-prop(8); 1-1; 
nk=ceil (No_node/2) ; 


for ii-1:nk 
Lx-(ii-1)*dx; 
C-P(1)/(48*E*Iz) ; 
Asolution(ii,1)-250*Lx; 
Asolution (ii, 2) =c* (3*L^2-4*Lx^2) *Lx; 
end 
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for іі=пк+1:Мо поде 

Lx= (ii-1) *dx; 

c-P(1)/(48*E*Iz); 

Asolution(ii,1)-250*Lx-500* (Lx-L/2) ; 
Asolution(ii,2)-c* ((3*L^2-4*Lx^2) *Lx* (2*Lx-L)^3) 7 


if Opt graphicsl--1 


for iel-1:No el $ loop for the total number of elements 
nd(1)=iel; % 1st node number of the iel-th element 
nd(2)=iel+1; % 2nd node number of the iel-th element 


x(1)=gcoord(nd(1),1)% y(1)=gcoord(nd(1),2); z(1)=gcoord(nd(1),3); 
* coordinates of 1st node 

x(2)-gcoord(nd(2),1); y(2)-gcoord(nd(2),2); z(2)-gcoord(nd(2),3); 
* coordinates of 2nd node 


figure (1) 
plot(x,y), xlabel('x'), ylabel('y'), hold on; 
axis([-0.1,1.1,-0.01,0.01]) 
end 
if Opt graphics2--1 
title('nodal connectivity of elements'), hold off 
end 


if Opt graphics2--1 
gcoordA-gcoord* [zeros (No node, 1),displmtnode (:,2), zeros (No node,1)]; 


for iel- lo el * loop for the total number of elements 
nd(1)=iel; % 1st node number of the iel-th element 
nd(2)=iel+1; % 2nd node number of the iel-th element 


x(1)7gcoordA(nd(1),1); y(1)=gcoordA(nd(1),2); z(1)=gcoordA(nd(1),3); 
* coordinates of 1st node 

х (2) =дсоогад (па (2),1); y(2)=gcoordA(nd(2),2); z(2)-gcoordA(nd(2),3); 
* coordinates of 2nd node 


figure(1) 

plot(x,y,'r'), title('Deflection of the structure'), hold on; 
end 
hold off 


disp('The calculation is use of: 
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if Opt_beam==1 
disp('Euler-Bernoulli beam') 
else 
disp('Timoshenko beam element") 
end 


disp(' numrical analytical!) 
аізр(' M y M yn 


displacements-[num' displmtnode Asolution] % print nodal 
displacements 


% (0.1) input basic data 
Ф 
Prob_title='static analysis of beam structure’ 


No el-40; $ number of elements 
No nel-2; % number of nodes per element 

No dof-2; $ number of dofs per node 

No node-(No nel-1)*No е1+1; $ total number of nodes in system 
Sys dof-No node*No dof; % total system dofs 


a= 
% (0.2) physical and geometric properties 


$---. 
prop(1)72.1e11; $ elastic modulus 
prop(2)=0.3; Poisson's ratio 


% 
prop(3)=7860; % mass density (mass per unit volume) 
ргор(4)=0.02; % height of beam cross-section in y direction 
prop (5)=0.02; % width of beam cross-section in 2 direction 
prop (6) =0.02*0.02; % cross-sectional area of the beam 
prop(7)-0.02*0.02^3/12; % moment of inertia of cross-section about axis y 
prop(8)=0.02*0.02*3/12;  $ moment of inertia of cross-section about axis z 


prop (9) =0; % polar moment of inertia 

prop (10) =0; % shear modulus 
% = 0 not include the shear deformation 
% = 1 shear modulus is calculated by E/(2*(1*u)) 
% = the value for the shear deformation 


% (0.3) nodal coordinates 
&------. 


$ x, y, z coordinates in global coordinate system 
xx=zeros (No_node,1); yy-zeros(No node,1); zz-zeros(No node,1); 
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025; 
:dx:(No node-1)*dx; xx=xx'; 
gcoord=[xx yy 22]; 


P-[-500,21,2]; $ load applied at node 26 in the negative y direction 


% code for constrained nodes 


41, 1, 1]; 
ConVal -[ 1, 0, 0;... % values at constrained dofs 
41, 0, 0 


用 混合 梁 单 元 计算 梁 的 变形 ， 并 与 解析 和 解 比较 ， 见 表 SO. 


表 5.2 用 混合 梁 单 元 计算 梁 的 变形 时 有 限 元 解 与 解析 解 的 比较 
一 -~ 


节 点 有 限 元 解 解析 解 
M У M У 
1 0 0 0 0 
2 6.2500 70.0003 6.2500 70.0003 
3 12.5000 70.0006 12.5000 70.0006 
4 18.7500 70.0008 18.7500 -0.0008 
5 25.0000 -0.0011 25.0000 70.0011 
6 31.2500 70.0014 31.2500 70.0014 
7 37.5000 -0.0016 37.5000 70.0016 
8 43.7500 -0.0019 43.7500 -0.0019 
9 50.0000 70.0021 50.0000 70.0021 
10 56.2500 70.0023 56.2500 70.0023 
11 62.5000 -0.0026 62.5000 70.0026 
12 68.7500 70.0028 68.7500 -0.0028 
13 75.0000 -0.0029 75.0000 70.0029 
14 81.2500 70.0031 81.2500 70.0031 
15 87.5000 -0.0033 87.5000 -0.0033 
16 93.7500 -0.0034 93.7500 
17 100.0000 70.0035 100.0000 
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续 表 
有 限 元 解 LES 
节点 P m 
18 106.2500 106.2500 70.0036 
19 112.5000 112.5000 70.0037 
20 118.7500 118.7500 70.0037 
21 125.0000 125.0000 70.0037 
0 0 


[#1531 如 图 5.7 所 示 为 一 平面 刚 架 结构 . 梁 的 横 截面 面积 为 0.05X0.05 m, FH 
弹性 模 量 为 2.1 x 10"Pa， 质 量 密度 为 7 860 kg/m’. 在 刚 架 的 上 部 作用 P=500N 的 横向 载荷 
和 М=500 N • m 的 力矩 ， 试 分 析 该 刚 架 的 变形 . 


M 
Р rN 
5 8 
$ 
1 12 
7 7 
3m 


图 5.7 平面 刚 架 模型 


将 刚 架 按 图 5.7 划分 成 11 个 单元 进行 有 限 元 分 析 ， 用 MATLAB 编程 计算 ， 其 中 主要 
用 到 的 MATLAB 的 函数 ( 见 5.5 节 ) 有 : 

© FrameElement21(prop,leng,beta,Opt_section,Opt_mass)—— 用 Euler Bernoulli 梁 计 
算 单 元 的 刚度 矩阵 k 和 质量 矩阵 m. 

© FrameElement22(prop,leng,beta,Opt_section,Opt_mass) 一 一 用 Timoshenko 梁 计 算 
单元 的 刚度 矩阵 k 和 质量 矩阵 т. 

efemEldofndNo_neLNo_dof 一 一 计算 单元 自由 度 对 应 到 结构 系统 上 的 自由 度 . 

е femAssemblel(kk,k,index) 一 一 用 于 将 单元 刚度 矩阵 或 质量 矩阵 组 集 到 系统 的 总 体 
刚度 矩阵 kk 或 总 体质 量 和 矩阵 mm. 

© femApplybc1(kk,mm,ff,bedof,becval) 一 一 对 结构 系统 施加 边界 条 件 . 


138 


MALTAB 有 限 元 结构 动力 学 分 析 与 工程 应 用 


M 文件 如 下 : 


Example 5.3 
To solve a static deflection of a 2-D frame structure 
nodal dofs: {ul vl Ө1 u2 v2 62} 

Problem description 
Find the deflection of a frame structure which is made of three beams 
of lengths of 4 m, 3 m and 4 m, respectively. All beams have cross- 
sections of 0.05 m height by 0.05 m width. The elastic modulus is 
2.10x10^11 Pa. The frame is subjected to a concentrated load of 500 N 
and a moment of 500 Nm at the ends of the top beam. One end of the 
each vertical beam is fixed. 


Variable descriptions 
k,m = element stiffness matrix and element mass matrix 
kk,mm = system stiffness matrix and system mass matrix 
ff - system force vector 
index - a vector containing system dofs associated with each element 
bcdof = a vector containing dofs associated with boundary conditions 
bcval = a vector containing boundary condition values associated with 

the dofs in 'bcdof' 

displmt = nodal displacement vector 


% 
% 
$ 
$ 
% 
% 
% 
% 
+ 
+ 
% 
% (see Fig. 5-9 for the element discretization) 
% 
LI 
% 
% 
* 
% 
` 
% 
% 
% 
% 


Beam InputData543; % import the input data for the information of 
* nodes, elements, loads, constraints and materials 

Opt_beam=1; % option for type of the beam 

$ -1 Euler Bernoulli beam 

$ -2 Timoshenko beam 
Opt, mass-2; % option for mass matrix 

% =1 consistent mass matrix 

% -2 lumped mass matrix 
Opt section-l; $ option for type of cross-section 

$ = 1 rectangular cross-section 
% = 2 circular cross-section 
Opt graphicsl 
Opt graphics 
入 Sas 
+ 
E 
kezeros(No nel*No dof,No nel*No доғ); % element stiffness matrix 
m-zeros(No nel*No доѓ, Мо nel*No dof); % element mass matrix 


* option for graphics of the nodal connectivity 
% option for graphics of the static deformation 
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kk=zeros (Sys_dof,Sys dof); $% initialization of system stiffness matrix 
eros (Sys_dof,Sys dof); % initialization of system mass matrix 
=zeros (Sys dof,1); % initialization of system force vector 


bedof=zeros (Sys_dof,1); % initializing the vector bcdof 
bcvalezeros(Sys dof,1); * initializing the vector bcval 


index-zeros (No nel*No dof,1); $ initialization of index vector 


% (2) calculation of constraints 


[n1,n2]=size (ConNode) ; 


% calculate the constrained dofs 


for ni-1:nl 
ki=ConNode (ni,1); 
bcdof((ki-1)*No dof*1:ki*No dof)-ConNode (пі, 2:No_dof+1); 
$ the code for constrained dofs 
bcval((ki-1)*No dof*1:ki*No dof)-ConVal(ni,2:No dof*1); 
$ the value at constrained dofs 


* (3) applied nodal loads 


[n1,n2]-size(P); 


for ni-1:nl 
ff(No dof*(P(ni,2)-1)*P(ni,3))-P(ni,1); 


for iel-1:No el % loop for the total number of elements 
nd(1)=nodes (іе1,1); % 1st connected node for the (iel)-th element 
nd(2)-nodes (iel,2); $ 2nd connected node for the (iel)-th element 


x(1)-gcoord(nd(1),1); y(1)-gcoord(nd(1),2); z(1)-gcoord(nd(1),3); 
К % coordinate of lst node 
x(2)-gcoord(nd(2),1); y(2)=gcoord(nd(2),2); z(2)-gcoord(nd(2),3); 
% coordinate of 2nd node 
leng=sqrt ( (x (2) -x (1) ) ^2* (y (22 -y (1))^2* (z (2) -z (1) ) ^2) 7 
* length of element 'iel' 
$ compute the angle between the local and global axes 
if (x(2)-x(1))= 
beta-pi/2; 
elseif ((y(2)-y(1) 
beta-pi; 
else 


0) &((x(2) -x(1))«0) 
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beta=atan ((y(2)-y(1))/(x(2)-x(1)))7 
end 


if Opt_beam==1 
[k,m]-FrameElement21(prop,leng,beta,Opt section,Opt mass); 
$ compute element matrix for Euler-Bernoulli beam 
elseif Opt beam--2 
[k,m] -FrameElement22 (prop, leng, beta, Opt_section, Opt_mass) ; 
* compute element matrix for Timoshenko beam 
end 


index-femEldof (nd,No nel,No dof); 

$ extract system dofs associated with element 
kk=femAssemblel (kk, k, index); % assemble system stiffness matrix 
mm-femAssemblel(mm,m, index); % assemble system mass matrix 


% (5) apply constraints and solve the matrix equation 
$--- 
[Xk1,mn1, ££1, sdof1]-femApplybcl (kk, mm, ££, bcdof, beval) ; : 

3 apply fixed boundary conditions to the system equation 
displmt-kklVffl; % solve the matrix equation to find nodal displacements 


No dofl-No dof/(Sys dof/sdof1l); 


for ii-1:No node 


for ij=1:No_dof1 
displmtnode(ii,ij)-displmt((ii-1)*No dofl1*ij,1); 
end 


$ (6) graphics of nodal c 


nectivity and static deformation 


% (6.1) display the nodal connectivity 
$c 
if Opt graphicsi--i 
for iei-1:No el % loop for the total number of elements 
nd(i)-nodes(iel,1); % 1st connected node for the (iel)-th element 
nd(2)-nodes(iel,2); % 2nd connected node for the (iel)-th element 
x(1)-gcoord (nd(1),1); y(1)-gcoord(nd(1),2); z(1)-gcoord(nd(1),3); 
% coordinate of 1st node 
x(2)-gcoord(nd(2),1); y(2)=gcoord(nd(2),2); z(2)-gcoord(nd(2),3); 
% coordinate of 2nd node 


figure (1) 
plot(x,y), xlabel('x'), ylabel('y'), hold on; 
axis([-1.5,4.5,-1,5]); 

end 
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if Opt_graphics2~=1 
title('nodal connectivity of elements'), hold off; 


Атр1=10; 

gcoordA-gcoord* [Ampl*displmtnode(:,1:2),zeros(No node,1)]; 

for iel-1:No el * loop for the total number of elements 
па (1) =подеѕ (iel,1); % 1st connected node for the (iel)-th element 
nd (2) =nodes (iel, 2); % 2nd connected node for the (iel)-th element 


x(1)-gcoordA(nd(1),1); y(1)=gcoordA(nd(1),2); z(1)-gcoordA (nd(1),3); 
% coordinate of 1st node 

x(2)-gcoordA(nd(2),1); y(2)-gcoordA(nd(2),2); 2 (2) =дсоогад(па(2),3); 
% coordinate of 2nd node 


figure (1) 
plot(x,y,'r'), title('Deflection of the structure’), hold on; 
end 
hold off 


% (7) print fem solutions 


disp('The calculation is use of') 


if Opt beam--i 
disp('Euler-Bernoulli beam element') 
elseif Opt beam-- 
disp('Timoshenko beam element') 


end 

аізр(' ') 

аізр(' numrical solution') 
disp(' node x y 0 


num=1:1:No_node; 
displmts-[num' displmtnode] * print nodal displacements 


$ Input data for static analysis of frame structure (5.4.3) 


è (0.1) input basic data 
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& 
Prob title-'static analysis of a 2-D frame structure 


No_el=11; % number of elements 

% number of nodes per element 

$ number of dofs per node 

$ total number of nodes in system 
$ 


total system dofs 


% elastic modulus 
% Poisson's ratio 


prop(1)=; 
prop (2) = 
ргор(3)=7860; 
ргор(4)=0.05; 
prop(5)=0.05; 
ргор(6)=0.05*0.05; 
ргор(7)=0.05*0.05^3/12; 
ргор(8)=0.05*0.05^3/12; 


mass density (mass рег init volume) 
height of beam cross-section in y direction 
width of beam cross-section in z direction 
cross-sectional area of the beam 

moment of inertia of cross-section about axis y 


Ф Ф 0 өе 


moment of inertia of cross-section about axis 2 


prop(9)=1; % polar moment of inertia 
% = 0 not include the torsion deformation 
% = 1 polar moment of inertia calculated by h*b*3 or pi*(D^4-d^4)/32 
% = а value for the torsion deformation 
prop (10)=1; % shear modulus 
% = 0 not include the shear deformation 
% = 1 shear modulus calculated by E/(2*(1+u)) 
% = the value for the shear deformation 
Opt_section=1; % option for correction factor for shear energy 
% = 1 rectangular cross-section 
% = 2 circular cross-section 


ъ x, y, z coordinates in global coordinate system 


gcoord-[ 1 0.0 0.0 0.0; 
2 0.0 1.0 0.0; 
3 0.0 2.0 0.0; 
4 0.0 3.0 0.0; 
5 0.0 4.0 0.0; 
6 1.0 4.0 0.0; 
7 2.0 4.0 0.0; 
8 3.0 4.0 0.0; 
y 3.0 3.0 0.0; 
10 3.0 2.0 0.0; 
11 3.0 1.0 0.0; 
12 3.0 0.0 0.0]; 
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gcoord-[gcoord(:,2:4)]; 
&--- 
$ (0.4) nodal connectivity of the elements 


$ (0.5) applied loads 
a--- 


% a load applied at node 5 in -x direction and a moment at node 8 
P-[-500,5, 
-500,8,3] 


% (0.6) boundary conditions 


ace 

ConNode-[ 1, 1, 1, 1;... % code for constrained nodes 
12, 1, 1, 1); 

ConVal =[ 1, 0, 0, 0;... % values at constrained dofs 
12, 0, 0, 0]; 

% 


分 别 采用 Euler Bernoulli 梁 和 Timoshenko 梁 的 刚 架 单元 计算 刚 架 的 变形 ， 结 果 见 
表 5.3. 


#53 刚 架 变形 计算 结果 


Euler Bernoulli 梁 Timoshenko 梁 
| и | v | Ө и | v | (2 
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Euler Bernoulli 梁 Timoshenko 梁 


【 例 5.4】 如 图 5.8 所 示 为 一 空间 刚 架 结构 . 该 刚 架 由 12 个 梁 组 成 ， 各 个 梁 的 模 截面 
面积 为 0.01X0.01m2， 梁 的 弹性 模 量 为 2.1X 100Pa， 质 量 密度 为 7 860 kg/m. 在 刚 架 的 上 
部 7 节点 上 沿 ? 方向 作用 有 -10 000N 的 横向 载荷 ， 计 算 该 刚 架 的 变形 . 


图 5.8 空间 刚 架 模型 


将 刚 架 按 图 5.8 划分 成 12 个 单元 进行 有 限 元 分 析 ， 用 MATLAB 编程 计算 ， 其 中 主要 
用 到 的 MATLAB 函数 ( 见 5.5 节 ) 有 : 
е FrameElement31(prop,leng,beta,xi,al,Opt_section,Opt_mass)—— Hi Euler Bernoulli 


梁 计 算 单元 的 刚度 年 阵 k 和 质量 矩阵 m. 

© FrameElement32(prop,leng,beta,xi,al,Opt_section,Opt_mass) 
计算 单元 的 刚度 矩阵 k 和 质量 矩阵 m. 

© femEldoftnd,No_nel,No_dof) 一 一 计算 单元 自由 度 对 应 到 结构 系统 上 的 自由 度 . 

е femAssemblel(kk,k,index) 一 一 用 于 将 单元 刚度 甜 阵 或 质量 矩阵 组 集 到 系统 的 总 体 
刚度 矩阵 kk 或 总 体质 量 矩 阵 mm. 


用 Timoshenko 梁 
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е femApplybc1(kk,mm,ff,bedof,becval) 一 一 对 结构 系统 施加 边界 条 件 . 
@ kkCheck1(kk,mm,ff,bedof,beval) 一 一 检查 总 体 刚度 矩阵 kk 的 主 元 是 否 为 零 . 
M 文件 如 下 : 


$- 

% Example 5.4 

% To solve a static deflection of a space frame structure. 
nodal dof: (ul vl wl O x1 Ө yl O zi u2 v2 w2 O x2 0 y2 Ө z2) 

Problem description 

Find the static deflection of a space frame structure as shown in 
Fig.5-11, which is made of twelve beam members. The frame are of the 
length of 4 m, the width of 3 m and the height of 2 m. All members 
have cross-section of 0.01 m height by 0.01 m width. The elastic modulus 
of the structure material is 2.1e11 Pa. The mass density is 7860 kg/m’. 
The frame is subjected to a concentrated load of 10000N at node 7 in 


Variable descriptions 
k,m = element stiffness matrix and element mass matrix 
kk,mm = system stiffness matrix and system mass matrix 


ff = system force vector 
index = a vector containing system dofs associated with each element 
bcdof - a vector containing dofs associated with boundary conditions 
bcval = a vector containing boundary condition values associated ` 
with the dofs in 'bcdof' 

displmt = nodal displacement vector 


+ 
% 
` 
` 
` 
+ 
% 
+ 
% -y direction. 
% 
EL 
* 
° 
` 
+ 
& 
` 
à 


$ (0) input control data 


clear; clc; . 


Beam InputData544; % import the input data for the information of 
% nodes, elements, loads, constraints and materials 

Opt beam-l; % option for type of the beam: 

71 Euler Bernoulli beam 

-2 Timoshenko beam 

Opt mass-2; option for mass matrix: 

71 consistent mass matrix 

=2 lumped mass matrix 

option for type of cross-section 


P ow e p e 


Opt_section=1; 


% = 1 rectangular cross-section 
% = 2 circular cross-section 
Opt graphicsl-1; `% option for graphics of the nodal connectivity 
Opt graphics2-1; % option for graphics of the static deformation 


$ (1) initialization of matrices and vectors to zero 


kezeros(No nel*No dof,No nel*No dof); % element stiffness matrix 
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mezeros(No nel*No dof,No nel*No dof); % element mass matrix 


kk-zeros(Sys dof,Sys dof); % initialization of system stiffness matrix 
mm-zeros(Sys dof,Sys dof); % initialization of system mass matrix 
ff-zeros(Sys dof,1l); $ initialization of system force vector 


v 


initializing the vector bcdof 
initializing the vector bcval 


bcdof-zeros(Sys dof,1); 
bcvalezeros(Sys dof,1); 


= 


index=zeros (No_nel*No_dof, 1); % initialization of index vector 


[n1,n2]=size (ConNode); 
% calculate the constrained dofs 


for пі=1:п1 


ki=ConNode (ni, 1); 
bcdof((ki-1)*No dof*l:ki*No dof)-ConNode(ni,2:No dof*1); 

% the code for constrained dofs 
beval ( (ki-1) *No_dof+1:ki*No_dof) =ConVal (ni,2:No_dof+1); 

% the value at constrained dofs 


{n1,n2}=size(P); 


for пі=1:п1 
ff (No. dof* (P(ni,2)-1)*P(ni,3))-P(ni,1); 


% (4) calculate the element matrices and assembling 


for iel-1:No el $ loop for the total number of elements 
па (1) =подеѕ (іе1,1); % 1st connected node for the iel-th element 
па (2)=nodes (iel,2); % 2nd connected node for the iel-th element 


x(1)=gcoord(nd(1),1); y(1)=gcoord(nd(1),2); z(1)=gcoord(nd(1),3); 
% coordinate. of 1st node 
х (2) =дсоога(па(2),1); y(2)-gcoord(nd(2),2); z(2)=gcoord(nd (2) ,3); 
% coordinate of 2nd node 
leng=sqrt ( (x (2) -x (1) )^2* (y (2) -y (1) ) ^2* (z(2) -z(1)) ^2); 
$ length of element 'iel' 


xi(1)-(x(2)-x(1))/leng; * cos of the local x-axis and system x-axis 
xi(2)-(y(2)-y (1)) /1eng; $ cos of the local x-axis and system y-axis 
xi(3)-(z(2)-z (1)) /1eng; $ cos of the local x-axis and system y-axis 


if Opt beam-- 
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[k,m]-FrameElement3l(prop,leng,xi,al,Opt section,Opt mass); 
% compute element matrix for Euler-Bernoulli beam 
elseif Opt beam-- 
[k,m]-FrameElement32 (prop,leng,xi,al,Opt section,Opt mass); 
% compute element matrix for Timoshenko beam 
end 


‚ index-femEldof (nd,No nel,No dof); 
$ extract system dofs associated with element 
kk-femAssemblel(kk,k,index); % assemble system stiffness matrix 
mm-femAssemblel(mm,m,index); % assemble system mass matrix 
end 


* (5) apply constraints and solve the matrix equation 
race 
[kk0, mm0, ££0, bcdof0, bcva10, sdof0] -kkCheck1 (kk, mm, ff, bedof, beval) ; 

* check the zero main elements in kk and eliminate the rows 


% and columns in equation associated with the zero main elements 
[kk1,mnl, ££1, sdof1]=femApplybel (kk0, mm0, ££0, bcdof0, beval0) ; 
% apply boundary conditions to the system equation 


displmt=kk1\ff1; % solve the matrix equation to find nodal displacements 


No dofl-No dof/(Sys dof/sdof1); 


for ijel:No dofl 
displmtnode (ii, ij) =displmt ((ii-1)*No_dof1+ij,1); 
end 


% (6.1) display the nodal connectivity 


== 
if Opt graphicsl--1 
for iel-1:No el 3 loop for the total number of elements 
nd(1)-nodes (ie1,1); % 1st connected node for the iel-th element 
nd(2)-nodes (1e1,2) ; % 2nd connected node for the iel-th element 
x(1)-gcoord(nd(1),1); y(1)-gcoord(nd(1),2); z(1)-gcoord(nd(1),3); 
$ coordinate of 1st node 
x(2)-gcoord(nd(2),1); y(2)-gcoord(nd(2),2); z(2)-gcoord(nd(2),3); 
% coordinate of 2nd node 
figure(1) 
plot3(x,y,z), xlabel('x'), ylabel('y'), zlabel('z'), hold on; 
end 


if Opt graphics2--1 
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title('nodal connectivity of elements'); hold off; 


end 


$ (6.2) display the static deformation 

Nen = 

if Opt graphics2--1 
gcoordA-gcoord*10*displmtnode(:,1:3); 


for iel-1:No el $ loop for the total number of elements 
nd(1)-nodes (iel,1); $ 1st connected node for the iel-th element 
nd(2)-nodes (ie1,2); $ 2nd connected node for the iel-th element 


x(1)=gcoordA(nd(1),1); y(1)-gcoordA(nd(1),2); z(1)-gcoordA (nd(1),3); 
$ coordinate of 1st node 

х (2) =дсоогад (па (2),1); y(2)=gcoordA(nd(2),2); z(2)-gcoordA (па (2),3); 
% coordinate of 2па поде 


figure(1) 

plot3(x,y,z,'r'), title('Deflection of the structure'), hold on; 
end 
hold off 


disp('The calculation is use of: 


if Opt beam--1 

disp('Euler-Bernoulli beam element') 
elseif Opt_beam==2 

disp('Timoshenko beam element ') 


end 

disp ') 

disp(' numrical solution') 

disp(' node x y z Өх ey Əz ') 
num-1:1:No node; 

displmts-[num' displmtnode] % print nodal displacements 


% (0.1) input basic data 


Prob title-'static analysis of a 3-D frame structure'; 
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% number of elements 
% number of nodes per element 

% number of dofs per node 
No_node=8; % total number of nodes in system 
Sys dof-No node*No dof; % total system dofs 


prop(1)-2.1e11; $ elastic modulus 


š % Poisson's ratio 
mass density (mass per init volume) 
height of beam cross-section in y direction 
width of beam cross-section in z direction 
cross-sectional area of the beam 
moment of inertia of cross-section about axis y 
moment of inertia of cross-section about axis z 


ргор(2)=0.3; 
prop(3)=7860; 
prop(4)=0.01; 
prop(5)-0.01; 
prop(6)70.01*0.01; 

prop (7) =0.01*0.01^3/12; 
ргор (8) =0.01*0.01^3/12; 


P e Ф e wo ор 


polar moment of inertia 

= 0 not include the torsion deformation 

= 1 polar moment of inertia calculated by 
h*b^3 or pi*(D^4-d^4)/32 

7 a value for the torsion deformation 

prop(10)=1; % shear modulus 

% = 0 not include the shear deformation 

% = 1 shear modulus calculated by £/(2*(1+u)) 

+ 

E 


prop(9)-1; 


P p mp mp op 


= the value for the shear deformation 


option for correction factor for shear energy 
% = 1 rectangular cross-section 
% = 2 circular cross-section 


Opt_section=1; 


% x, у, z coordinates of nodes in global coordinate system 
gcoord-[ 1 0, 0, 0; 
2 4, 0, 0; 
$ 4, 3, 0; 


0, 3, 0; 
5 0, 0, 2; 
6 4, 0, 2; 
7 4, 3, 2; 
8 0, 3, 2]; 
gcoord- [gcoord (:,2:4)]; 
al=0; $ angle between the reference coordinate system and 
% the local coordinate system for the space element 


nodes-[ 1 1, 5 
2 2, 6; 
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3 з, 
4 4, 
5 5, 
6 6, 
7 7, 
8 8, 
9 1, 
10 2, 7; 
11 3, 8; 
12 4, 5]; 


nodes- [nodes (:,2:3)]; 


% code for constrained nodes 


* values at constrained dofs 


用 采用 Euler Bernoulli 梁 的 刚 架 单元 计算 刚 架 的 变形 ， 结 果 见 表 5.4. 
R54 刚 架 变形 计算 结果 


Euler Bernoulli 梁 
и v w [A 


= = > A 


0 
0° 
0° 
0 


© 5 5 5 


0 
-9.8042X10* |3.1564X 10* 
-2.9029X 10? |-1.3856X107 |1.1432x 10? 
-2.9030X10? |6.3487X10?  |1.0884x 10? 
75.0444 X 107 6.1078 X 10^ 


23072X10*  |-2.1346X 10? 
72355 10° |-3.7462x 10? 
-83766X10* |-2.1506x 10? 
74.6490 X 10* 


-2.8310X 107 
4.0502 X 107 
2.9552 X 107 


2 
3 
4 
5 -4.0028X 107 
6 
7 
8 


6.6800 X 10* 


-2.5184X 10? 
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5.4.2 ”特征 值 问题 与 模 态 分 析 


【 例 5.5]. 对 例 5.1 中 的 简 支 粱 ， 分 别 用 Euler Bernoulli 梁 单元 和 Timoshenko 梁 单 元 
BHT BAA HT. 
将 如 图 5.6 所 示 简 支 梁 划分 成 40 个 单元 进行 有 限 元 分 析 ， 用 MATLAB 编程 计算 ， 其 
中 主要 用 到 的 MATLAB 的 函数 ( 见 5.5 WA: 


© BeamElementl(propleng,Opt_mass) 一 一 用 Euler Bernoulli 梁 单 元 计算 单元 的 刚度 
矩阵 k 和 质量 和 矩阵 m. 

ә  BeamElementZ(prop,leng,Opt mass) 一 一 用 Timoshenko 梁 单 元 计算 单元 的 刚度 矩 
BE k 和 质量 矩阵 m. 

© femEldoftnd,No_nel,No_dof) 一 一 计算 单元 自由 度 对 应 到 结构 系统 上 的 自由 度 . 

© femAssemblel(kk,k,index) 一 一 用 于 将 单元 刚度 矩阵 或 质量 矩阵 组 集 到 系统 的 总 体 
刚度 矩阵 kk 或 总 体质 量 和 矩阵 mm. 

efemApplybcl(kkmm,ffbcdofbcval) 一 一 对 结构 系统 施加 边界 条 件 . 

”kkCheckl(klomm,ffbcdofbcval) 一 一 检查 总 体 刚度 矩阵 kk 的 主 元 是 否 为 零 . 

® bcCheck1(kk0,mm0,ff0,bedof0,beval0) 一 一 检查 边界 条 件 ， 消 去 相应 的 自由 度 . 

M 文件 如 下 : 

te Ee a sa 

% Example 5.5 


То solve the еїдепуа1це problem for а beam structure. 
using Euler Bernoulli beam or Timoshenko beam elements. 
nodal dofs: {vl @ v2 62} 

Problem description 
Find the natural frequencies and modal shapes of a simply supported 
beam whose length is 1 m. The beam has elastic modulus of 2.1x10*11 
and its cross-section is 0.02 m height by 0.02 m width. The mass 
density is 7860 kg/m^3. A concentrated load of -500 N is applied at 
the middle of the beam. 

Variable descriptions 
k, m - element stiffness matrix and element mass matrix 
kk, mm - system stiffness matrix and system mass matrix 
ff - system force vector 
index - a vector containing system dofs associated with each element 
bcdof - a vector containing dofs associated with boundary conditions 


bcval - a vector containing boundary condition values associated 
with the dofs in bcdof 


clear; clc; 


Beam InputData541; % import the input data for the information of 
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% nodes, elements, loads, constraints and materials 
Opt_beam=1; % option for type of the beam: 
=1 Euler Bernoulli beam 
=2 Timoshenko beam 
Opt_mass=1; option for mass matrix: 
=1 consistent mass matrix 
=2 lumped mass matrix 


P ow w Ф e 


Opt graphicsl-0; $ option for graphics of the nodal connectivity 
Opt graphics3-1; % option for graphics of the modal shape 


$ select the order of modes to display 


% (1) initialization of matrices and vectors to zero 


k-zeros(No nel*No dof,No nel*No dof); % element stiffness matrix 
mezeros(No nel*No dof,No nel*No dof); * element mass matrix 


kkezeros(Sys dof,Sys dof); % initialization of system stiffness matrix 
mmezeros(Sys dof,Sys dof); % initialization of system mass matrix 


ff-zeros(Sys dof,1); % initialization of system force vector 
indexezeros (No nel*No dof,1); $ initialization of index vector 
bcdofezeros(Sys dof,1); % initializing the vector bcdof 
bcvalezeros(Sys dof,1l); $ initializing the vector bcval 
aono. == 

% (2) calculation of constraints 

g< 


{n1,n2]=size(ConNode) ; 
% calculate the constrained dofs 
for ni-1:nl 
ki=ConNode (ni,1); 
bcdof((ki-1)*No dof*l:ki*No dof)-ConNode (ni, 2:No_dof+1); 
* the code for constrained dofs 
bcval((ki-1)*No dof*l:ki*No dof)-ConVal(ni,2:No dof*1); 
$ the value at constrained dofs 


% (4) calculate the element matrices and assembling 


for iel=1:No_el * loop for the total number of elements 
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nd(1)=iel; % lst node number of the iel-th element 
nd(2)=iel+1; % 2nd node number of the iel-th element 
x(1)=gcoord(nd(1),1); y(i)-gcoord(nd(1),2); z(1)=gcoord(nd (1), 3) 

% coordinates of 1st node 
x(2)-gcoord(nd(2),1); y(2)-gcoord(nd(2),2); z(2)-gcoord(nd(2),3); 

ў % coordinates af 2nd node 

leng=sqrt((xX(2)-x(1))^2+(yY(2)-yY(1I))^2+(zZ(2)-z(1)) ^2) ; 

$ length of element 'iel' 


if Opt beam--1 
[k,m] -BeamElementll(prop,leng,Opt mass); 
% compute element matrices for Euler-Bernoulli beam 
else 
(к, т) -BeamElement12 (prop,leng,Opt mass); 
* compute element matrices for Timoshenko beam 
end 


index=femEldof (nd,No nel,No dof); % extract system dofs associated with element 


kk=femAssemblel (kk, k, index); % assemble system stiffness matrix 
mm=femAssemblel (mm,m, index); * assemble system mass matrix 
end Ф 


[kk0,mm0, ££0, bcdof0, bcval0, sdof0]=kkCheck1 (kk, mm, ff, bedof, beval) ; 
% check the zero main elements in kk 
[kk1,mn1, ££1, sdof1]=femApplybcl (kk0, mm0, ££0, bcdof0, beval0) ; 
% apply boundary conditions to the system equation 
[kk2,mn2, ££2, sdof2] -bcCheck1 (ККО, mm0, ££0, bcdof0, bcva10) ; 
% check the boundary conditions in equation and eliminate the rows 
% and columns associated with the boundary conditions 


[V, D] -eig(kk2,mm2 * solve the eigenvalue problem of matrix 


[lambda, ki]-sort (diag(D)); * sort the eigenvaules and eigenvectors 
omega-sqrt (lambda) ; % the frequency vector in radon/sec. 
omegal=sqrt (lambda) / (2*pi); $ the frequency vector in Hz. 

VeV Gu ki); $ the modal matrix 


i-(1:sdof2)'; 
omega2-i. *i*pi^2*sqrt (E*Iz/(rho*L^4)); 
omega3-omega2/ (2*pi) 


% (7) graphics of nodal connectivity and static deformation 
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if Opt_graphicsl==1 


for iel=1:No_el % loop for the total number of elements 
nd(1)=iel; % 1st node number of the iel-th element 
nd(2)=iel+1; $ 2nd node number of the iel-th element 


x(1)-gcoord(nd(1),1); у(1) =дсоога(па(1),2); z(1)-gcoord(nd(1),3); 
$ coordinates of ist node 
x(2)=gcoord(nd(2),1); y(2)=gcoord(nd(2),2); z(2)-gcoord(nd(2),3); 
% coordinates of 2nd node 
figure (1) 
plot (х,у); xlabel('x'), ylabel('y'), hold оп; 
axis([-0.1,1.1,-1.5,1.5]); 
title('nodal connectivity of elements'); 


end 
hold off 
end 


% (7.3) draw the modal shape 


if Opt_graphics3==1 


jk=ith; Vi=[V(:,jk)]; * chose the order of modes to display 
ik=0; % initial the counter for locating the modal coordinates 
for ii=1:sdof0 % loop for the total number of sdof 


if bedof0(ii)==0 
mcoord (ii, 1)=Vi(ii-ik); 
else 
mcoord(ii,1)=0; 
ik=ik+1; 
ena 
end 


for ii=1:No_node Ë % loop for the total number of nodes 
for ij=1:No_dofl 
mcoordA(ii,ij)=mcoord((ii-1)*No_dofl+ij,1); 
ena 


end 


t7 (i-1)*(2*pi)/20; 
mcoordB-gcoord* [zeros (No node, 1) ,mcoordA (:, 1), zeros (No_node, 1) ] *cos (t); 
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for iel=1:No_el % loop for the total number of elements 

% starting node number for element 'iel' 

% ending node number for element 'iel' 

x(1)=mcoordB(nd(1),1)7 y(1)-mcoordB(nd(1),2); z(1)-mcoordB(nd(1),3); 
$ coordinate of 1st node 

x(2)-mcoordB(nd(2),1); y(2)-mcoordB(nd(2),2); z(2)-mcoordB (nd(2),3); 
$ coordinate of 2nd node 


figure(2) 
plot(x,y,'b'), xlabel('x'), ylabel('y'), hold on; 
axis([-0.1,1.1,-1.5,1.5]) 
title([num2str(jk), 'th modal shape of the structure']); 
end 
hold off 
M(:,i)=getframe; 
end 
movie (M, 5,10) 
end 
Pea 
% (8) print fem solutions 
pm 
disp('The calculation is use of: 


if Opt_beam==1 

disp('Euler-Bernoulli beam element') 
else 

disp('Timoshenko beam element') 
end 


if Opt mass--l 
disp('and consistent mass matrix') 
elseif Opt mass--2 
disp('and lumped mass matrix') 


end 

disp(' ') 

disp(' mode  numrical analytical!) 

num-1:1:10; % print natural frequencies 


frequency-[num' omegal(1:10) 0mega3(1:10)] 


分 别 用 Euler Bernoulli 梁 单 元 和 Timoshenko 梁 单 元 进行 模 态 分 析 ， 简 支 梁 前 10 阶 固 
有 频率 见 表 5.5. 
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R55 简 支 梁 前 10 阶 固 有 频率 


mos зили LEE 
Euler Bernoulli 梁 Timoshenko 3 
1 46.8768 46.8888 46.8768 
2 187.5071 187.7003 187.5071 
3 421.8918 422.8679 421.8909 
4 750.0333 753.1108 750.0282 
5 1171.9387 1179.4286 1171.9191 
6 1687.6209 1703.0923 1687.5635 
7. 2297.1059 2325.6338 2296.9614 
8 3000.4340 3048.8297 3000.1129 
9 3797.6669 3874.6813 3797.0179 
10 4688.8936. 4805.3873 4687.6764 
前 一 阶 、 二 阶 振 型 如 图 5.9 所 示 . 
is ‘th modal shape of the structure Т" 2% modal shape of the structure 


° 
° 
E 
° 
° 
š 
° 
8 
° 
e 


(a) 一 阶 振 型 (b) 二 阶 振 型 
图 5.9 简 支 梁 的 低 阶 振 型 

【 例 561 对 于 例 5.4 中 的 空间 刚 架 结构 ， 用 模 态 分 析 方法 分 别 计算 结构 在 脉冲 、 阶 
跃 和 简 谐 激励 下 的 响应 . 脉冲 、 阶 跃 和 简 谐 激励 函数 分 别 为 ，F(1)= FO), F()=F,, 
FE(D= 瓦 cosof， 其 中 ， 古 是 在 结构 上 节点 7 沿 -y 方向 作用 -100 000 N 的 集中 载荷 形成 
的 力 向 量 ，w=300 rad/s. 

与 例 5.4 相同 将 刚 架 划分 成 12 个 单元 进行 有 限 元 分 析 ， 用 MATLAB 编程 计算 ， 其 中 
主要 用 到 的 MATLAB 函数 ( 见 5.5 节 ) 有 : 

@ FrameElement31(prop,leng,beta,xi,al,Opt_section,Opt_mass) 一 一 用 Euler Bernoulli 

梁 计 算 单元 的 刚度 矩阵 k 和 质量 矩阵 m. 
е  FrameElement32(prop,leng,beta,xi,alOpt sectionjOpt mass) 一 一 用 Timoshenko Ж 
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计算 单元 的 刚度 矩阵 k 和 质量 矩阵 m. 
e ”femEldoftnd,No_nel,No_dof) 一 一 计算 单元 自由 度 对 应 到 结构 系统 上 的 自由 度 . 
efemAssemblel(kkk,index) 一 一 用 于 将 单元 刚度 矩阵 或 质量 矩阵 组 集 到 系统 的 总 体 
刚度 矩阵 kk 或 总 体质 量 和 矩阵 mm. 
€ — femApplybcl(kkmm, 他 bcdofbcval) 一 一 对 结构 系统 施加 边界 条 件 . 
ө kkCheckl(kkmm,ffbcdofbcval) 一 一 检查 总 体 刚度 矩阵 kk 的 主 元 是 否 为 零 . 
ө ”bcCheck1(kk0,mm0,ff0,bcdof0,beval0) 一 一 检查 边界 条 件 ， 消 去 相应 的 自由 度 . 
* ImpulseRespt(kk,mm,fd,u,t,C,q0,dq0,a,b) 一 一 计算 结构 在 脉冲 激励 下 的 响应 ， 
е StepRespt(kk,mm,fd,u,t,C,q0,dq0,a,b) 一 一 计算 结构 在 阶 跃 激励 下 的 响应 . 
© ”HarmonicRespt(kk,mm,fd,omega0,t,C,q0,dq0,a,b) 一 一 计算 结构 在 简 谐 激 励 下 的 响应 . 
M 


% Example 5.6 

% To solve the dynamic response of a space frame structure. 

* nodal dof: {ul vl м1 9xl 9yl Ө21 u2 v2 м2 Өх2 Oy2 0z2) 

% Problem description 
Find the dynamic response of a space frame structure as shown in 
Fig.5-10, which is made of twelve beam members. The frame is of the 
length of 4 m, the width of 3 m and the height of 2 m. All members 
have cross-section of 0.01 m height by 0.01 m width. 
The elastic modulus of the structure material is 2.1ell Pa. The mass 
density is 7860 kg/m3. The frame is subjected to a concentrated load 
of 10000N at node 7 in -y direction. 

Variable descriptions 
k,m - element stiffness matrix and element mass matrix 
kk,mm - system stiffness matrix and system mass matrix 
ff = system force vector 
index = a vector containing system dofs associated with each element 
bcdof - a vector containing dofs associated with boundary conditions 


bcval = a vector containing boundary condition values associated 
with the dofs in 'bcdof' 


Pe we de e de = de de de de de dh oo do 


% (0) input control data 


istae 


Clear; clc; 


Beam InputData544; % import the input data for the information of 
% nodes, elements, loads, constraints and materials 


Opt beam-i; * option for type of the beam 
$ =1 Euler Bernoulli beam 
$ -2 Timoshenko beam 

Opt mass-1; $ option for mass matrix 
$ consistent mass matrix 


E 


lumped mass matrix 
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Opt_section=1; % option for type of cross-section 
% = 1 rectangular cross-section 
% = 2 circular cross-section 


TypeResp=1; % option for selecting the type of the response 
% -1 impulse response: ImpulseRespt.m 
& -2 step response: StepRespt.m 
$ -3 harmonic response: HarmonicRespt.m 
dt=0.0005; % time step size 
; % initial time 
tf=0.25; % final time 
nt=fix((tf-ti)/dt); % number of time steps 
tt=ti:dt:ti+nt*dt; % generate time vector 
ac=0.0002; bc=0.00008; % Parameters for proportional damping 
а1=0; % angle between the reference coordinate system and 
$ the local coordinate system for the space element 
omega0-100; $ frequency of the applied force 
$---- 
% (1) initialization of matrices and vectors to zero 
a 
k=zeros (No_nel*No_dof,No_nel*No_dof) ; è element stiffness matrix 
mezeros(No nel*No dof,No nel*No dof); % element mass matrix 


kkezeros(Sys dof,Sys dof); % initialization of system stiffness matrix 
mm-zeros(Sys dof,Sys dof);  * initialization of system mass matrix 


ff-zeros(Sys dof,1); % initialization of system force vector 
bcdof-zeros(Sys dof,1); % initializing the vector bcdof 
bcvalezeros(Sys dof,1); * initializing the vector bcval 
index=zeros (No nel*No dof,1); % initialization of index vector 
ea а 


% (2) calculation of constraints 


{n1,n2]=size (ConNode) ; 


$ calculate the constrained dofs 


for ni: 1 
ki=ConNode (ni,1); 
bedof ((ki-1) *No_dof+1: 


i*No dof)-ConNode (ni,2:No dof*1); 

% the code for constrained dofs 
i*No dof)-ConVal(ni,2:No dof*1); 

* the value at constrained dofs 


beval ((ki-1) *No_dof+1: 
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[n1,n2]-size(P); 


for ni-1:nl 

ff(No dof*(P(ni,2)-1)*P(ni,3))-P(ni,1); 
end 
ç == 
% (4) calculate the element matrices and assembling 


Geese. 
for iel=1:No_el % loop for the total number of elements 
па (1) =подез (iel,1); $ 1st connected node for the iel-th element 
nd(2)-nodes (iel, 2); % 2nd connected node for the iel-th element 


x(1)-gcoord(nd(1),1); y(1)-gcoord(nd(1),2); z(1)-gcoord(nd(1),3); 
; % coordinate of lst node 
x(2)-gcoord(nd(2),1); y(2)-gcoord(nd(2),2); z(2)=gcoord(nd(2),3); 
* coordinate of 2nd node 
lengesqrt ( (x (2) -x (1)) ^2* (y (2) -y (1)) ^2* (2 (2) -z(1)) ^2) ; 
* length of element 'iel' 


хі (1) = (x(2)-x (1)) /1eng; % cos of the local x-axis and system x-axis 
хі (2) = (у(2) -у(1)) /1eng; % cos of the local x-axis and system y-axis 
xi(3)-(z(2)-z(1))/leng; % cos of the local x-axis and system y-axis 


if Opt_beam==1 
(k,m]=FrameElement31 (prop, leng, xi, al, Opt_section, Opt_mass) ; 
$ compute element matrix for Euler-Bernoulli beam 
elseif Opt beam--2 
[X,m] «FrameElement32 (prop,leng,xi,al,Opt section,Opt mass); 
* compute element matrix for Timoshenko beam 
end 


index=femEldof (nd,No nel,No dof); 
% extract system dofs associated with element 


kk=femAssemblel (kk, k, index) ; % assemble system stiffness matrix 
mm-femAssemblel(mm,m, index); % assemble system mass matrix 

end 

-- 

& (5) apply constraints and solve the matrix equation 

% 


[kk0, mm0, ££0, bcdof0,beval0, sdof0 кСһеск1 (kk, mm, ff, bedof, bcval) ; 


% check the zero main elements in kk 
(kk1,mm1, ff1, sdof1]=femApplybcl (kk0, mm0, ££0, bedof0, beval0) ; 
% apply boundary conditions to the system equation 
[kk2,mm2, ££2, sdof2]=bcCheck1 (kk0,mm0, ff0, bcdof0, beval0); 
% check the boundary conditions in equation and eliminate the 
% rows and columns associated with the boundary conditions 
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IV, D] =eig (kk2,mm2) ; % solve the eigenvalue problem of matrix 
[lambda,kil=sort(diag(D)); % sort the eigenvaules and eigenvectors 
omega-sqrt (lambda) ; % the frequency vector in rad/s 
omegal=sqrt (lambda) / (2*pi); % the frequency vector in Hz 
V=V(:, ki); % the modal matrix 
$- 


% present the initial computation conditions 


u=1; 

C=eye (sdof2) ; 

q0-zeros (sdof2,1) ; $ initial displacement 
dq0-zeros (sdof2,1); * initial velocity 


if TypeResp==1 
(eta, y, omega2, sdof3]=ImpulseRespt (kk2,mm2, ££2,u, tt, C, q0, dq0, ac, bc) ; 
% compute the impulse responses 
elseif TypeResp--2 
[eta, y, omega2, sdof3]=StepRespt (kk2,mm2, ££2,u, tt, C, q0, dq0, ac, bc) ; 
$ compute the step responses 


else 
(eta, y, omega2, sdo£3] -HarmonicRespt (kk2,mm2, ff2, опеда0, tt, C, q0, dq0, ac, bc) ; 
% compute the harmonic responses 


% (7) graphics of dynamic response 
а-- 
jth: 


-14; tpoint=2; 

% Plot the graph of the time-history response at jth degree of freedom 
plot (tt,y(jth,:)) 

xlabel('Time (seconds) ') 

ylabel('Nodal displmt. (m)') 


1 
disp('The calculation is use of:') 


if Opt_beam==1 
disp('Euler-Bernoulli beam element') 
elseif Opt_beam== 
disp('Timoshenko beam element’) 
end 


if Opt_mas. 
disp('and consistent mass matrix') 
elseif Opt mass-- 
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disp('and lumped mass matrix') 


end 


num=1:1:sdof2; 


frequency=[num' omegal] % print natural frequency 


% The end 
VES NIA IEN S ie IR arene a 
用 Euler Bernoulli 梁 单 元 进行 计算 ， 结 构 在 节点 7 了 方向 的 响应 如 图 5.10 所 示 . 
time-history response 
20; 0 
15 
E 
| 
Es t 
{ о) Www 一 -一 i i WA 
1 c 1 Н -04 
E 1 3 
К 00s — 01 $15 02 1 m os 01 015 0 025 
Time (seconds) Time (seconds) 
(a) 脉冲 激励 下 的 响应 (b) 阶 跃 激励 下 的 响应 
0.06; 
0.04) 
Е 002 | 
E pfii 
HE ||| 
| 
EI 
i: os 01 ois 02 025 
Time (seconda) 


(c) 简 谐 激励 下 的 响应 
图 5.10 ” 振 型 登 加 法 计算 的 刚 架 结构 节点 7 处 响应 


5.4.3 ”了 瞬 态 问题 分 析 


【 例 5.7] 对 于 例 5.3 中 的 平面 刚 架 结构 ， 梁 的 横 截面 面积 为 0.10X0.05m*?， 梁 的 弹 
性 模 量 为 2.1 X10"Pa， 质 量 密度 为 7 860Кр/т?. 用 直接 积分 方法 计算 结构 在 脉冲 激励 下 的 
瞬 态 响应 . 脉冲 激励 函数 为 : Р) = 五 6(D) ， 其 中 ， 古 是 在 结构 中 部 沿 -y 方向 作用 力 的 幅 
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=-500М. 
例 5.3 相同 将 刚 架 划分 成 11 个 单元 进行 有 限 元 分 析 ， 激 励 载荷 作用 在 节点 6 上 ， 


用 MATLAB 编程 计算 ， 其 中 主要 用 到 的 MATLAB 函数 ( 见 5.5 节 ) 有 : 


FrameElement3 | (prop, leng,beta,xi,al,Opt_section,Opt_mass)—— J Euler Bernoulli 
梁 计 算 单元 的 刚度 矩阵 k 和 质量 矩阵 m. 
FrameElement32(prop,leng,beta,xi,al,Opt_section,Opt_mass) 一 一 用 Timoshenko 梁 
计算 单元 的 刚度 矩阵 k 和 质量 矩阵 m. 
femEldof(nd,No_nel,No_dof) 一 一 计算 单元 自由 度 对 应 到 结构 系统 上 的 自由 度 . 
人 emAssemblel(kkoindex) 一 一 用 于 将 单元 刚度 矩阵 或 质量 矩阵 组 集 到 系统 的 总 体 
刚度 矩阵 kk 或 总 体质 量 矩 阵 mm. 
femApplybcl(kk,mm,fPbcdof,bcval) 一 一 对 结构 系统 施加 边界 条 件 . 
kkCheck I(kk,mm, ff,bedof, beval) —#2 t 44 (A Hl SERE B: kk 的 主 元 是 否 为 零 . 
mmCheck | (kk0,mm0,ff0,bedof0,beval0)-—#2 # 8 НЕЕ [Ë mm 的 主 元 是 否 为 零 . 
beCheck1(kk0,mm0,ff0,bedof0,beval0) 一 一 检查 边界 条 件 ， 消 去 相应 的 自由 度 . 
TransResp1(kk1,cc1l,mm1,ft0,bedof1,nt,dt,q0,dq0) 一 一 中 心 差分 法 计算 响应 . 
TransResp3(kk!,cc1,mm1,ft0,bedofl ,nt,dt,q0,dq0)——Hooubolt 法 计算 响应 . 
TransResp4(kk1,cc1l,mm1,ft0,bedof1,nt,dt,q0,dq0) 一 一 Wilson- 6 法 计算 响应 . 
TransResp5(kkl,ccl,mml,ft0,bcdofl,nbdbq0,dq0) 一 一 Newmark 法 计算 响应 . 

文件 如 下 : 


To solve transient response of a 2-d frame structure. 

The solution methods are: 1) central difference scheme. 3) Houbolt 

integration scheme. 

4) Wilson !Ë integration scheme. 5) Newmark integration scheme 

nodal dof: (ul vi wl Oxl 6yl Ө21 u2 v2 м2 Өх2 Өу2 O22} 
Problem description 

Find the response of a frame structure which is made of three beams 

of lengths of 4 m, 3 m and 4 m, respectively. All beams have cross- 

section of 0.10 m height by 0.05 m width. The elastic modulus is 

2.10x10^11 Pa. The frame is subjected to an impulse load of amplitude 

500 N in the middle of the top beam. One end of the each vertical 

beam is fixed. (see Fig. 5-9 for the element discretization) 
Variable descriptions 

k, m - elenent stiffness matrix and mass matrix 

kk, mm - system stiffness matrix and mass matrix 

ff - system force vector 

index - a vector containing system dofs associated with each element 

bcdof - a vector containing dofs associated with boundary conditions 

bcval - a vector containing boundary condition values associated 

with the dofs in 'bcdof' 
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% dsp - displacement matrix 


% vel - velocity matrix 
% асс - acceleartion matrix 


clear; clc; 


Beam_InputData547; $ import the input data for the information of 
* nodes, elements, loads, constraints and materials 

Opt beam-1; % option for type of the beam 

71 Euler Bernoulli beam 

Timoshenko beam 


Opt mass-2; option for mass matrix 
71 consistent mass matrix 
=2 lumped mass matrix 
Opt section-l; option for type of cross-section 
7 1 rectangular cross-section 


7 2 circular cross-section 


de de d^ do p e æ = 


TypeMethod=1; % option for selecting the solution method 
% = 1 central difference scheme 
% = 3 Houbolt integration scheme 
% = 4 Wilson Ө integration scheme 
% = 5 Newmark integration scheme 
Typeload=1; % option for selecting the load type 
% = 1 impulse load 
% = 2 step load 
% = 3 Harmonic load 


dt=0.00001; % time step size 
ti=0; % initial time 
tf=0.200; % final time 
nt=fix((tf£-ti) /dt); % number of time steps 
tt-ti:dt:tient*dt; $ generate time samples vector 
ас=0:00002; bc-0.00008; % Parameters for proportional damping 
al-0; % angle between the reference coordinate system and 


$ the local coordinate system for the space element 


% (1) initialization of matrices and vectors to zero 


4 
k-zeros(No nel*No dof,No nel*No dof); $ element stiffness matrix 
m-zeros(No nel*No dof,No nel*No dof); % element mass matrix 


kkezeros(Sys dof,Sys dof); % initialization of system stiffness matrix 
mm-zeros(Sys dof,Sys dof); % initialization of system mass matrix 
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ff-zeros(Sys dof,1); $ initialization of system force vector 


bcdof-zeros(Sys dof,1); $ initializing the vector bcdof 
bcvalezeros(Sys dof,1); $ initializing the vector bcval 
index-zeros(No nel*No dof,1); $ initialization of index vector 
$ 
% (2) calculation of constraints 


ren 


[n1,n2]- 


size (ConNode) ; 
% calculate the constrained dofs 


for ni-1:nl 
ki=ConNode (ni, 1); 
bcdof((ki-1)*No dof*1:ki*No dof)-ConNode(ni,2:No dof*1); 
% the code for constrained dofs 
bcval((ki-1)*No dof*1:ki*No dof)-ConVal(ni,2:No dof*1); 
$ the value at constrained dofs 


[n1,n2]-size(P); 


for пі=1:п1 
ff(No dof* (Р (піу2) -1) +Р(пі,3)) =Р(пі,1); 


for iel-1:No el * loop for the total number of elements 
nd(1)=iel; % starting node number for element '1е1' 
па (2) =іе1+1; % ending node number for element 'iel' 


x(1)-gcoord(nd(1),1); y(1)-gcoord(nd(1),2); z(1)-gcoord(nd(1),3); 

% coordinate of 1st node 
х (2) =дсоога(па(2),1): y(2)-gcoord(nd(2),2); z(2)-gcoord(nd(2),3) ; 

$ coordinate of 2nd node 
Leng=sqrt ( (x (2) -x (1) ^2* (y (22 -y (1) ^2* (z (2) -2 (1)) ^2) ; 


xi(l)-(x(2)-x(1))/leng; — Š cos of the local x-axis and system x-axis 
xi(2)-(y(2)-y(1))/leng; % cos of the local x-axis and system y-axis 
xi(3)-(z(2)-z (1)) /1eng; $ cos of the local x-axis and system y-axis 


if Opt beam--i 
[k,m]-FrameElement31(prop,leng,xi,al,Opt section,Opt mass); 
$ compute element matrix for Euler-Bernoulli beam 
elseif Opt beam--2 
[k,m]-FrameElement32 (prop,leng,xi,al,Opt section,Opt mass); 
$ compute element matrix for Timoshenko beam 
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епа 


index-femEldof (nd,No nel,No dof); 
$ extract system dofs associated with element 
kk=femAssemblel (kk, k, index) ; % assemble system stiffness matrix 


mm=femAssemble1 (mm,m, index); % assemble system mass matrix 


% (5) apply constraints and solve the matrix equation 
&--- 
[kk0, mm0, ££0, bcdof0, bcval0, sdof0] -kkCheck1 (kk, mm, ££, bedof, beval) ; 

* check the zero main elements in kk and eliminate the rows 


% and columns in equation associated with the zero main elements 
(kk1,mm1, ££1, sdo£1] -femApplybcl(kk0,mm0, ££0, bcdof0, bcva10) ; 
% apply boundary conditions to the system equation 


[kk2, mm2, ££2, sdof2] -bcCheck1 (kk0, mm0, ££0, bcdof0, beval0) ; 
% check the boundary conditions in equation and eliminate 
$ the rows and columns associated with the boundary conditions 


LV, D] -eig (kk2,mm2) ; % solve the eigenvalue problem of matrix 
(lambda, ki]-sort (diag (0)); % sort the eigenvaules and eigenvectors 
omega-sqrt (lambda) ; % the frequency vector in radin/s 
omegal=sqrt (lambda) / (2*pi) ; % the frequency vector in Hz 
VeV (Gu ki); % the modal matrix 
%-- 


% check whether the eigenvalues аге infinite апа eliminate 
% the eigenvectors associated with the bad eigenvalues. 


jk-0; 


for ii-1:sdof2 * loop for find the infinite in omega 
check-omega (ii); 
if check»1.0e12 


jkejkel; % location of the infinite frequency 
omi (jk) eii; % storing the location of the infinite frequency 
end 
end 


sdof3=sdof2-jk; 
V1-[V(:,1:sdof3)]; * truncate the modal vectors 


Factor=diag(V1'*mm2*V1) ; 
Vnorm=V1* inv (sqrt (diag (Factor) )); $ Eigenvectors are normalized 
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* 
omega: 


iag (sqrt (Vnorm' *kk2*Vnorm)); $ Natural frequencies 


Modamp-Vnorm'*(ac*mm2*bc*kk2)*Vnorm; % Form the Rayleigh damping 
zeta-diag((1/2)*Modamp*inv (diag(omega2))); $ The damping ratio 


if (max(zeta) »- 1) 
disp('Warning - Your maximu damping ratio is grater than or equal to 1') 
disp('You have to reselect ac and bc ') 
pause 
disp('If you want to continue, type return кеу!) 
end 


[kk1,mm1, ffl,bcdofl,bcvall,sdof1]-mmCheckl(kk0,mm0, ff0,bcdof0,bcval0); 
% check the zero main elements in mm and eliminate the rows 


% and columns in equation associated with the zero main 
elements 
switch Typeload 
case 1 $ Impulse force function 
u-[1,zeros (1,nt)]; 
ftO-ffl*u; 
case 2 $ Step force function 
u(1,1l:nt+1)=1; 
ftO=ffl*u; 
case 3 % Harmonic force function 
u-cos (omega0*tt) ; 
ft0-ffl*u; 
otherwise 
ftO-ff1; $ a given force function 
end 


ccl=ac*mml+bc*kk1;. % Form the Rayleigh damping matrix 
q0=zeros(sdofl,1); dq0=zeros (sdof1,1); % initial displacement and velocity 


switch TypeMethod 


case 1 % central difference scheme 1 
[ace, vel, dsp] =ТгапзВезр1 (kk1,ccl,mm1, ft0,bcdof1,nt, dt, q0, dq0) ; 
case 3 % Houbolt integration scheme 
[acc, vel, dsp] =TransResp3 (kk1,cc1,mm1, £t0,bedof1,nt, dt, 90,990); 
case 4 $ Wilson ! integration scheme 
[acc, vel, dsp] =TransResp4 (kk1,cc1,mm1, £t0,bedof1,nt,dt,q0,dq0) ; 
сазе 5 % Newmark integration scheme 


[acc, vel, dsp] =TransResp5 (kk1,ccl,mm1, £t0, bedof1, nt, dt, 90,940); 
otherwise 
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disp('Unknown method.') 


% (8) graphics of dynamic response 
Рас 


jth=14; 

% Plot the graph of the time-history response at jth degree of freedom 
plot (tt,dsp(jth,:)) 
xlabel('Time (seconds)'), ylabel('displacement (m)') 
title('time-history response') 


switch Typeload 
case 1 
disp('The excitation is impulse force') 
case 2 
disp('The excitation is step force') 
case 3 
disp('The excitation is step force!) 
otherwise 
disp('The given foece') 
end 


disp('The calculation is use of: 
if Opt_beam==1 
disp('Euler-Bernoulli beam element') 
elseif Opt beam--2 
disp('Timoshenko beam element') 
end 


if Opt_mass==1 

disp('and consistent йазз matrix') 
elseif Opt mass-- 

disp('and lumped mass matrix') 
end 


num-1:1:sdof2; 


$ print natural frequency 


$ (0.1) input basic data 
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Мо_е1=11; % number of elements 
No_nel=2; $ number of nodes per element 
; $ number of dofs per node 

* 

` 


No dof- 

No node-12; total number of nodes in system 
Sys dof-No node*No dof; total system dofs 

No 

% (0.2) material and geometric properties 

e+. 


prop(1)-2.1e11; $ elastic modulus 
% Poisson's ratio 
% mass density (mass per init volume) 


prop (4)=0.10; % height of beam cross-section in y direction 
prop (5)=0.05; % width of beam cross-section in z direction 
prop (6)=0.05*0.10; % cross-sectional area of the beam 
prop(7)=07 * moment of inertia of cross-section about axis y 


Prop (8)=0.05*0.10*3/12; % moment of inertia of cross-section about axis z 
prop (9)=0; % polar moment of inertia 
$ = 0 not include the torshional deformation 
% = 1 polar moment of inertia calculated by 
è h*b^3 or pi*(D^4-d^4) /32 
% = the value for the torshional deformation 
prop(10)=1; * shear modulus 
% = 0 not include the shear deformation 
% = 1 shear modulus calculated by E/(2* (1«u)) 
% = a value for the shear deformation 
Opt section-l; % option for correction factor for shear energy 
% = 1 rectangular cross-section 
% = 2 circular cross-section 
— 
% (0.3) nodal coordinates 
$= 


% x, у, z coordinates in global coordinate system 

gcoord={ 1 0.0 0.0 0.0; 

2 0.0 1.0 0.0; 

з 0.0 2.0 0.0; 

4 0.0 3.0 0.0; 

5 0.0 4.0 0.0; 

6 1.0 4.0 0.0; 

7 2.0 4.0 0.0; 

8 3.0 4.0 0.0; 

9 3.0 3.0 0.0; 

10 3.0 2.0 0.0; 

11 3.0 1.0 0.0; 

12. 3.0 0.0 0.0]; 


FSE 梁 与 刚 架 结构 169 


% (0.4) nodal connectivity of the elements 
a+. 
nodes=[ 1 1 2; 


ЧЧ 


ьн 
roe 
Ë 


nodes- [nodes (:,2:3)]; 
$--- 
% (0.5) applied loads 
$--- 


* a load applied at node 6 in -y direction 


Р= [-500,6,2]; 


ru 
* (0.6) boundary conditions 
$ 
ConNode=[ 1, 
12, 
ConVal =[ 1, 
12, 


% code for constrained nodes 


% values at constrained dofs 


用 Euler Bernoulli 梁 单 元 (集中 质量 ) 进 行 计算 ， 结 构 在 节点 7 WY y 方向 的 响应 如 
图 5.11 所 示 . 


2 2 
15 
1 
Е os T 
D 
EI 
а 
S 0.05 ies enn 0.15 02 005 toe 27 0.15 02 
(a) 中 心 差分 法 计算 的 响应 (b) Houbolt 法 计算 的 响应 


图 5.11 直接 积分 法 计算 的 刚 架 结构 节点 7 处 的 响应 
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2% fime-history response Nt ime-history response 


， 


015 02 4 005 


[r7 91 91 59 02 
Time (seconds) Time (seconds) 
(e) Wilson- Ө 法 计算 的 响应 (d) Newmark 法 计算 的 响应 
图 5.11 (i£) 
544 FANS AT 


在 一 些 实际 应 用 中 ， 如 主动 控制 、 模 态 试验 ， 前 述 的 时 域 方法 并 不 方便 ， 这 时 可 以 应 
用 频 域 方法 进行 分 析 . 
结构 系统 的 动态 特性 也 可 以 由 其 本 身 的 固有 频率 成 分 来 表征 ， 它 们 决定 了 系统 的 时 间 
和 频率 响应 , 进行 频 域 响应 计算 的 常用 工具 是 FFT(Fast Fourier Transform). 
对 于 连续 时 间 函 数 x(1) ， 可 以 表示 为 
1 pe 
KOE [ Xoo (5-119) 


其 中 
хдо) = [^ xe "ar (5-120) 
X (o) 称 为 时 域 函数 x(t) 的 Fourier 变换 ， 而 x(¢) WERA X (0) 的 Fourier 反 变 换 . 
引入 变量 f= w/2r Fourier 变换 可 表示 为 
x)= |” Xe (5-121) 
和 
X= | җе"? (5-122) 
对 于 上 述 的 积分 计算 可 以 采用 数值 积分 的 方法 进行 计算 . 
设 有 连续 函数 x(1) 经 过 N 个 采样 后 的 函数 序列 
x =x)» h =kAr (k=0,,2,...N - l) (5-123) 
相应 地 在 频 域 上 映射 有 N 个 频率 
Jefes fa (5-124) 
经 过 离散 化 ， 有 
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хо) = [xe Par = E ELT 
= 


由 于 


Т п 
At=—, t=kAt, == 
N + 4 T: 


于 是 
Xf) = Ar, x(k" =012…N-D 
& 
离散 Fourier 变换 (DFT) 和 离散 Fourier 反 变换 (IDFT) 定 义 为 
X(n)= y x(k)e 9" (n=0,1,2,,N -1) 


x(k)= x X(me?* 9" — (n-01,2,-, N-1) 
5 


在 MATLAB rf, DFT 的 表达 式 为 
X= җе P (=12 N) 


0-5 Хп) СКЕ) 
离散 Fourier 变换 关于 频率 f, FLAT ARTE 
Худ=Х Әд, л (» = -Za 
因而 只 需要 计算 一 半 频 谱 . 最 大 的 频率 为 
о</< x 


FFT (Fast Fourier Transform) 是 改进 的 DFT， 它 可 以 有 效 地 改进 计算 效率 . 
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(5-125) 


(5-126) 


(5-127) 


(5-128) 


(5-129) 


(5-130) 


(5-131) 


(5-132) 


[#j 5.8]. 对 例 5.7 中 的 平面 刚 架 结构 的 时 域 响应 信号 ， 进 行 频 域 响 应 计算 . 时 域 瞬 
态 响应 计算 与 例 5.7 相同 ， 频 域 响应 计算 利用 MATLAB 中 的 fR 函数 计算 ， 其 中 主要 用 到 


fi MATLAB 函数 ( 见 5.5 节 ) 有 : 


е FrameElement31(prop,leng,beta,xi,al,Opt_section,Opt_mass) —— Н Euler Bernoulli 


梁 计 算 单元 的 刚度 矩阵 k 和 质量 矩阵 m. 


© FrameElement32(prop,leng,beta,xi,al,Opt_section,Opt_mass) 一 一 用 Timoshenko 梁 


计算 单元 的 刚度 矩阵 k 和 质量 矩阵 m. 


efemEldoftndNo_nelNo_dof) 一 一 计算 单元 自由 度 对 应 到 结构 系统 上 的 自由 度 . 
© femAssemblel(kk,k,index) 一 一 用 于 将 单元 刚度 矩阵 或 质量 矩阵 组 集 到 系统 的 总 体 


刚度 矩阵 kk 或 总 体质 量 矩 阵 mm. 


е femApplybc1(kk,mm,ff,bedof,beval) 一 一 对 结构 系统 施加 边界 条 件 . 


kkCheck1(kk,mm,ff,bedof,beval) 一 一 检查 总 体 刚度 矩阵 kk 的 主 元 是 否 为 零 . 
@ mmCheckl(kk0,mm0,ff0,bcdofD,bcval0) 一 一 检查 总 体质 量 矩 阵 mm 的 主 元 是 否 为 零 . 
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bcCheck1(kk0,mm0,ff0,bcdof0,beval0) 一 一 检查 边界 条 件 ， 消 去 相应 的 自由 度 . 
TransRespi(kkl,ccl,mml,ft0,bcdofl,ntdtq0,dq0) 一 一 中 心 差分 法 计算 响应 . 
TransResp3(kkl,ccLmml,f0,bcdofl,nbdbq0,dq0) 一 一 Houbolt 法 计算 响应 . 
TransResp4(kkl,cclmml,ft0,bcdofl,ntdbq0,dq0) 一 一 Wilson- 法 计算 响应 . 
TransResp5(kkl,ccl,mml,f0,bcdofl,nbdbq0,dq0) 一 一 Newmark 法 计算 响应 . 


femFFT (ун) 一 一 利用 信函 数 计算 频 域 响应 . 
M 文件 如 下 : 


% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
` 
% 
% 
` 
% 
% 
% 
% 
* 
* 
% 


Example 5.8 
To solve transient response of a 2-d truss structure and 
calculate Fast Fourier Transform (FFT) of the time domain response. 
The solution methods are: 1) central difference scheme. 3) Houbolt 
integration scheme. 
4) Wilson Ө integration scheme. 5) Newmark integration scheme 
nodal dof: {ul vl м1 Өх1 Өу1 021 u2 v2 w2 Өх2 Өу2 O22} 
Problem description 
Find the response of a frame structure which is made of three beams 
of lengths of 4 m, 3 т and 4 m, respectively. All beams have cross- 
section of 0.10 m height by 0.05 m width. The elastic modulus is 
2.10x10^11 Pa. The frame is subjected to an impulse load of amplitude 
500 N in the middle of the top beam. One end of the each vertical 
beam is fixed. (see Fig. 5-9 for the element discretization) 
Variable descriptions 
k, m - element stiffness matrix and mass matrix 
kk, mm - system stiffness matrix and mass matrix 
ff - system force vector 
index - a vector containing system dofs associated with each element 
bcdof - a vector containing dofs associated with boundary conditions 
bcval - a vector containing boundary condition values associated 
with the dofs in 'bcdof' 
dsp - displacement matrix 
vel - velocity matrix 


acc - acceleartion matrix 


Clear; clc; 


Beam InputData547; $ import the input data for the information of 


* nodes, elements, loads, constraints and materials 
% option for type of the beam 
$ =1 Euler Bernoulli beam 
% -2 Timoshenko beam 
% option for mass matrix 


RSE 渠 与 刚 架 结构 173 


% =1 consistent mass matrix 
$ -2 lumped mass matrix 
Opt section-1; $ option for type of cross-section 


$ = 1 rectangular cross-section 
% = 2 circular cross-section 
TypeMethod=4; % option for selecting the solution method 


% = 1 central difference scheme 
% = 3 Houbolt integration scheme 
% = 4 Wilson Ө integration scheme 
% = 5 Newmark integration scheme 
Typeload=1; % option for selecting the load type 
% = 1 impulse load 
% = 2 step load 
% = 3 Harmonic load 
dt-0.0005; $ time step size 
ti-0; $ initial time 
tf-0.200; % final time 
ntefix((tf-ti)/dt); $ number of time steps 
ttm-ti:dt:tient*dt; $ generate time samples vector 


ас=0.00002; bc-0.00008; % Parameters for proportional damping 


al=0; % angle between the reference coordinate system and 
% the local coordinate system for the space element 


[kk1,mm1, ££1, bedof1,beval1, sdof1] =mmCheck1 (kk0,mm0, ff0, bcdof0, bcval0) ; 
% check the zero main elements in mm and eliminate the rows 
% and columns in equation associated with the zero main elements 
switch Typeload 
case 1 % Impulse force function 
u-[1, zeros (1,nt)]; i 
ftO=ffl*u; 
case 2 % Step force function 
u(1,1:nt+1)= 
ftO=ffl*u; 
case 3 % Harmonic force function 
u=cos (omega0*tt) ; 
ft0-ffl*u; 
otherwise 


ft0=ff1; % a given force function 
end 
ccl=ac*mml+bc*kkl; % Form the Rayleigh damping matrix 
q0=zeros (sdof1,1); dq0=zeros(sdof1,1); 
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% initial displacement and velocity 


switch TypeMethod 


case 1 % central difference scheme 
[acc, vel, dsp]=TransResp] (kk1,ccl,mm1, ft0,bcdof1,nt,dt,q0,dq0) ; 

case 3 % Houbolt integration scheme 
[acc, vel, dsp]=TransResp3 (kk1,ccl,mm1, ftO,bcdof1,nt,dt,q0, dq0) ; 

case 4 $ Wilson Ө integration scheme 
[acc, vel,dsp]-TransResp4 (kk1,ccl,mml, ft0,bcdof1,nt,dt,q0,dq0) ; 

case 5 $ Newmark integration scheme 


(асс, vel, dsp]=TransResp5 (kk1,ccl,mml, ftO,bcdofl,nt,dt,q0,dq0) ; 
otherwise 
disp('Unknown method.') 


jth-20; 
yt-dsp (jth, :)'; % extract one time domain data from the response 
tteti:dt:titnt*dt; % generate time vector 


[yfft, freq]-femFFT(yt,tt); % Calculate FFT of the time domain data and 
% take absolute values of the result 


% (9) graphics of dynamic response 
4-3 
jth=20; 


figure (1) 

% Plot the graph of the time-history response at jth degree of freedom 
plot (tt,dsp (jth, :)) 
xlabel('Time (seconds)'), ylabel('displacement (m)') 
title('time-history response’) 


figure (2) % Plot the graph of the FFT versus frequency 
plot (freq, yfft) 
xlabel('Frequency (rad/s) ') 
ylabel('Absolute values of FFT') 
title('FFT result') 
L 
% 
$- 
switch Typeload 
case 1 
disp('The excitation is impulse force') 


case 2 
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disp('The excitation is step force') 


case 3 
disp('The excitation is step force') 
otherwise 
disp('The given foece') 

end 


disp('The calculation is use of:') 


if Opt beam--i 
disp('Euler-Bernoulli beam element 1') 
elseif Opt beam--2 
disp('Timoshenko beam element!) 
else 
disp('Euler-Bernoulli beam element 2') 
end 


if Opt_mass==1 

disp('and consistent mass matrix') 
elseif Opt mass--2 

disp('and lumped mass matrix') 
else 

disp('and diagonal mass matrix') 
end 


num-1:1:sdof2; 
frequency-[num' omegal] % print natural frequency 


平面 刚 架 结构 节点 7 Ab y 方向 的 响应 信号 的 频 域 响应 如 图 5.12 所 示 . 


+ FFT result 
1281 


° 200 400 900 800 1000 
Frequency (rad/s) 


图 5.12 平面 刚 架 结构 节点 7 处 的 频 域 响应 
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5.5 ”应 用 问题 的 MATLAB 函数 


1. femEldof 函数 
femEldof 函数 的 代码 如 下 . 


ro 
function [index 
CERE 


% Purpose: 
% Compute system dofs associated with each element 

% Synopsis: 

* [index]-femEldof (nd,No nel,No dof) 

% Variable Description: 

% index - system dof vector associated with element "iel" 

% nd - node connectivity for the (iel)-th element 

% No nel - number of nodes per element 

* —— No dof - number of dofs per node 

* iel - element number whose system dofs are to be determined 
+ 


k-0; 
for i-1:No nel 
start = (nd(i)-1)*No dof; 
for jel:No dof 
к=к+1; 
index(k)=start+j; 
end 


2. femAssemble1 函数 
femAssemble1 函数 的 代码 如 下 . 


$--- 
function [kk]=femAssemblel (kk, k, index) 


Purpose 
Assembly of element matrices into the system matrix 
Synopsis: 
[kk] =femAssemblel (kk, k, index) 
Variable Description: 
kk - system matrix 
k - element matrix 


wo P P de Ф P Ф do de 


index - dof vector associated with an element 
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eldof = length (index); 


for i=l:eldof 
ii=index (i); 


jj=index (3); 
kk (11,33) =kk (ii, 35) +k(i,5)7 


end 
end 
[re 
Li The end 
ass. 


3. femApplybc1 函数 
femApplybcl 函数 的 代码 如 下 . 


TRE 
function [kk,mm, ff]-femApplybcl (kk, mm, ff, bcdof,bcval) 


$ Purpose: 
$ Apply constraints to matrix equation [kk] {x}={ff} 
% Apply constraints to eigenvalue matrix equation 

% [kk] {x}=lamda [mm] {x} 

% Synopsis: 

% (kk, mm, ££] =femApplybc1 (kk, mm, ff ,bcdof,bcva1) 

$ Variable Description: 

% kk - system stiffness matrix before applying constraints 
% mm - system mass matrix before applying constraints 

& ff - system vector before applying constraints 

$ 
$ 

% 


bcdof - а vector containing constrained dof 
bcval - a vector containing contained value 


ni=length (bcdof); 
sdof=size (kk); 


for ii-l:ni 
if bedof (ii)==1 
for j-1:sdof 
kk (ii,j)-0; 
kk (5, ii)=0; 
mm(ii,j)-0; 
mm(j,ii)-0; 
££ (3) =f£ (3) -bcval (ii) *kk (j,ii); 
end 
kk (ii, ii)=1; 
f£(ii)=beval (ii); 
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4. kkCheck1 函数 


kkCheckl 函数 的 代码 如 下 . 


$ 
function [kkl,mml,ffl,bcdofl,bcva1l1l, 


Purpose: 
Check whether the main elements of system stiffness matrix are 


zeros and eliminate the columns and rows associáted with the zero 
main element in the system matrix equation. 

Synopsis: 
[kk1, mn1, f£1,bcdof1,bcva11]=kkcheck1 (kk, mm, ff ,bcdof,bcva1) 


% 
` 

` 

% 

+ 

% 

% Variable Description: 

% kk = system stiffness matrix 
* 

` 

` 

+ 

% 

+ 


mm = System пазз Vector 
ff = System force vector 

sdof = total degrees of freedom of the system 

bcdof = а vector containing dofs associated with boundary conditions 
bcval = a vector containing boundary condition values associated 
with the dofs in 'bcdof' 


% loop for check of the zero main elements in kk 
check=kk (ii, ii); 
‚ if check==0 
jk=jk+1; % location of the zero main element 
kki (jk)=ii; % storring the location of the zero main element 
end 
end 


if jk--0 
disp('main elements of kk:') $ display the zero main element 
kkii-kki 
disp('equal zero') 

end 

&- 
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% (2) eliminate the columns and rows in kk, mm, ff, bcdof, bcval 


:1  $ loop for moving the columns and rows associated with 


% the zero main element in the system matrix equation 
hh=sdof-kki (jj); 
hrekki (jj); 


for i=1:hh % exchanging the rows in the equation 
kt=kk(hr+i-1,: 
mt=mm (hr+i-1 
ft=ff (hr+i-1); 
bdt=bedof (hr*i-1); 
bvt=bcval(hr+i-1,:); 


kk (hr+i-1,:)=kk(hr+i,:)7 
mm(hr+i-1,:)=mm(hr+i,:)7 

ff (hr+i-1)=ff (hr+i); 

bedof (hr*i-1)-bcdof (hr*i); 
bcval(hr*i-1,:)-bcval(hr*i,:); 


kk(hr*i,:)*kt; 

mm(hr+i,:)=mt; 

ff(hr+i)=ft; 

bcdof (hr*i,:)-bdt; 

beval (hr+i,:)=bvt; 
end 


for j=1:hh % exchanging the columns in the equation 
kt=kk(:,hr+j-1); 
mtemm(:,hr*j-1); 
kk(:,hr*j-1)-kk(:,hr*j); 
mm(:,hr*j-1)-mm(:,hr*j); 
kk(:,hr+j)=kt; 
mm(:,hr*j)emt; 
end 


end 
end 


sdofl-sdof-jk; 

kkl-[kk(1:sdofl,1:sdofl)]; % eliminating the columns and rows of the kk 
mml-[mm(1:sdofil, dofl)]; $ eliminating the columns and rows of the mm 
ffl-[ff(1:sdof1)]; * eliminating the rows of the ff 
bcdofi-[bcdof (1:sdof1)]; * eliminating the rows of the bcdof 
bevall=[beval (1:sdof1,:)]; % eliminating the rows of the bcval 
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5. mmCheck1 函数 


mmCheck1 函数 的 代码 如 下 . 


ki 
function [kk2,mm2, ff2,bcdof2,bcval2,sdof2]=mmCheck1l(kk,mm, ff,bcdof,bcval) 


WZ saa 


% Purpose: 
% Check whether the main elements of system mass matrix are zeros and 
% eliminate the columns and rows associated with the zero main 

$ element in the system matrices kk, mm, ff, bcdof, bcval 

% Synopsis: 

% [kk2, mm2, ££2, bedof2, beval2, sdof2] =mmCheck1 (kk, mm, ££, bedof, beval) 

% Variable Description: 

+ kk, тт = system stiffness matrix апа system mass matrix 

+ ff = system force vector 

à 

+ 

+ 

% 


bedof = a vector containing dofs associated with boundary conditions 
beval = a vector containing boundary condition values associated 
with the dofs in 'bcdof' 

sdof = total degrees of freedom of the system 


[sdof,n2]=size (kk); 


jk=0; 


for ii=1:sdof % loop for check of the zero main elements in mm 
check=mm(ii, ii); 
if check==0 
jk=jk+1; % location of the zero main element 
mmi(jk)=ii; % storing the location of the zero main element 


% (2) eliminate the columns and rows in kk, mm, ff, bcdof, bcval 


if jk~=0 
for jj=jk:-1:1 % loop for moving the columns and rows associated with 


% the zero main element in the system matrix equation 
nh-sdof-mmi (jj); 
hremmi (jj); 


for i-1:hh $ exchanging the rows in the equation 


kt=kk (hr+i-1 
mt=mm(hr+i-1 
ft=ff(hr+i-1); 
bdt=bedof (hr*i-1); 
bvt-bcval(hr*i-1); 
kk(hr*i-1 kk (hr*i, 
mm (hr+i-1, :)=mm(hr+: 
ff (hr+i~1)=££ (hrt+i); 
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bcdof (hr*i-1)-bcdof (hr+i) 7 


bcval(hr+i-1 

kk(hr+i,:)=kt; 

mm(hr+i,:)=mt; 

ff(hr+i)=ft; 

bcdof (hr+i)=bdt; 

bcval(hr+i)=bvt; 
end 


for j=1:hh 
kt=kk(:,hr+j-1); 
mtemm(:,hr*j-1); 
kk(:,hr*j-1)-kk 
mm(:,hr*j-1)-mm 
kk(:,hr*j)-kt; 
mm(:,hr+j)=mt; 

end 


end 


end 


sdof2=sdof-jk; 
kk2=[kk(1:sdof2,1:sdof2) ]; 
mm2- [mm (1:sdof2,1:sdof2)]; 
ff2-[ff(1:sdof2)]; 

bcdof2- (bcdof (1:sdof2)]; 
bcval2-[bcval(1:sdof2)]; 


beval (hr+i); 


% exchanging the columns in the equation 


hrs): 
party); 


% eliminating the columns and rows of the kk 
% eliminating the columns and rows of the mm 
$ eliminating the rows of the ff 
% eliminating the rows of the bcdof 
% eliminating the rows of the bcval 


6. bcCheck 函数 
bcCheckl 函数 的 代码 如 下 . 


function [kk2,mm2,ff2,sdof2]=bcCheckl (kk,mm, ff,bcdof,bcval) 


pu Saá 


% Purpose: 
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+ Check the boundary conditions апа eliminate the columns апа rows 
% associated with the boundary conditions in the system equation 
% Synopsis: 

+ [kk2,mm2, ££2, sdo£2] =bcChec1k (kk, mm, ££, ,bcdof,bcva1) 

% Variable Description: 

$ kk, mm = system stiffness matrix and system mass matrix 

E ff = system force vector 

%  bedof = a vector containing dofs associated with boundary conditions 
è beval = a vector containing boundary condition values associated 

% with the dofs in 'bcdof' 


[sdof,n1]-size(kk); 


jk=0; 


for ii-1:sdof * loop for check of the boundary conditions 


check=bedof (ii); 
if check==1 


jk=jk+1; % location of the zero main element 
bci (jk) =ii; % storing the location of the zero main element 
end 


% loop for moving the columns and rows 
% associated with boundary conditions 
hh=sdof-bei (jj); 
hr=bci (jj); 


for i=1:hh % exchanging the columns of the kk, etc. 
kt-kk(hr*i-1, 
mt=mm(hr+i-1 
ft=ff (hr+i-1); 
kk (hr+i-1,:)=kk(hr+i, :) 
mm(hr+i-1,:)=mm(hr+i, 
ff (hr+i-1)=ff (hr+i); 
kk(hr+i, :)=kt; 
mm(hr+i,:)=mt; 
ЕЁ (hrt+i)=ft; 

end 
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for j=1:hh % exchanging the rows of the kk, mm, ff 
kt=kk(:,hr+j-1); 
mtemm(:,hr*j-1); 
hr*j-1)-kk(:,hr*j 
i hrtj-1)emm(:,hr*j 
hr+j)=kt; 
mm(:,hr+3)=1 
end 


end 


end 


sdof2=sdof-jk; 


kk2-[kk(1:sdof2,1:sdof2)]; % eliminating the columns and rows of the kk 
mm2-[mm(1:sdof2,1:sdof2)]; % eliminating the columns and rows of the mm 
ff2-[ff(1:sdof2)]; * eliminating the rows of the ff 


7. BeamElement11 函数 
BeamElement11 函数 的 代码 如 下 . 


k= 
function [k,m]=BeamElement11(prop,leng,Opt_mass) 


gaan 
% Purpose: 
% To calculate stiffness and mass matrices for the beam element. 


+ (Euler-Bernoulli beam) 

% nodal dof: {vl 01 v2 02) 

% Synopsis: 

+ [k,m] -BeamElementll(prop,leng,Opt mass) 

% Variable Description: 

% k, m- element stiffness matrix and element mass matrix 
% prop - the properties of materials and geometry 

è leng - element length 

% Opt_mass = 1 - consistent mass matrix 

+ = 2 - lumped mass matrix 


Е=ргор(1); % elastic modulus 
u=prop(2); % Poisson's ratio 
rho-prop(3); % mass density (mass per unit volume) 
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А=ргор(6); % area of beam cross-section 
Iz-prop(8); % 2nd moment of inertia of cross-section about axis 2 
G=E/(2*(1+u)); % shear modulus 
和 ane 
% (1) element stiffness matrix 
eck. 
c-E*Iz/ (leng^3); 
k0-[12 6*leng — -12 6*1епд; 
6*leng 4*1епд^2 -6*leng 2*1епд^2; 
-12 -6*1eng 12 -6*1епд; 
6*leng 2*1епд^2 -6*leng 4*1епд^2]; 
k=c*k0; 


mass-rho*A*leng; 

т0=[156 22*leng 54 -13*1eng; 
22*1eng — 4*leng^2  13*leng -3*1епд^2; 
54 13*leng 156 -22*1eng; 
-13*leng -3*leng^2 -22*leng 4*1епд^2]; 

m-mass/420*m0; 

elseif Opt mass--2 

[SEES 


% (2.2) lumped mass matrix 

&---- 
mass-rho*A*leng; 
mO-diag((1 0 1 0]); 
m=mass/2*m0; 


8, BeamElement12 函数 
BeamElement12 函数 的 代码 如 下 . 


% Purpose: 


% To calculate stiffness and mass matrices for the beam element. 
* (Timoshenko beam) 
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nodal dof: (vl Ө1 v2 02) 
Synopsis: 
(k,m]=BeamElement 12 (prop, leng, Opt_mass) 
Variable Description: 
k, m - element stiffness matrix and element mass matrix 
prop - the properties of materials and geometry 


leng - element length 
Opt mass - 1 - consistent mass matrix 
= 2 - lumped mass matrix 


%--- 


` 


E=prop(1); % elastic modulus 
u=prop(2); % Poisson's ratio 
rho=prop(3); % mass density (mass per unit volume) 
А=ргор(6); % агеа of beam cross-section 
Iz-prop(8); % 2nd moment of inertia of cross-section about axis z 
G-E/ (2* (1+u) ) ; % shear modulus 


(1) element stiffness matrix 


c=E*Iz/leng; 
d= (5/6) *G*A/ (4*1eng) ; 
k-[4*d 2*d*leng © -4*d 2*d*1leng; 
2*d*leng — c*d*leng^2  -2*d*leng -c+d*leng*2; 
-4*d -2*d*leng 4*d -2*d*leng; 


2*d*leng  -c*d*leng^2  -2*d*leng c*d*leng^2]; 


0 0 0 0]; 
m=mass/6*m0; 


else 
$--- 
$ (2.2) lumped mass matrix 
&---- 


mass-rho*A*leng; 
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mO-diag([(1 0 1 0]); 
m=mass/2*m0; 


9. BeamElement14 函数 
BeamElement14 函数 的 代码 如 下 . 


а-- 
function [k,m 
uS 
$ Purpose: 

% To calculate stiffness and mass matrices for the beam element. 
E (mixed beam) 

* nodal dof: (Ml vl M2 v2) 

$ Synopsis 
% (к, т] -BeamElement14 (prop, leng, Opt_mass) 

% Variable Description: 

+ к, т - element stiffness matrix and element mass matrix 
+ 

s 

+ 

+ 


eamElement14 (prop, leng, Opt_mass) 


prop - the properties of materials and geometry 
leng - element length 


Opt_mass = 1 - consistent mass matrix 
= 2 - lumped mass matrix 


E=prop (1); % elastic modulus 
u=prop (2); % Poisson's ratio 
rho=prop (3) % mass density (mass per unit volume) 
A=prop (6) ; % area of beam cross-section 

Iz=prop(8); % 2nd moment of inertia of cross-section about axis 2 
shmodule=prop (10 % selection of shear modulus 


$- = 


c-1/(6*E*Iz*leng 


k-[2*leng^2  6*E*Iz leng^2 -6*E*I2; 
6*E*Iz 0 -6*E*Iz 0; 
leng^2 -6*E*Iz 2*1eng^2 6*E*Iz; 
-6*E*Iz 0 6*E*Iz 01; 


k=c*k; 
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elseif shmodule==1 


G-E/ (2* (1+0)); % shear modulus 
c-1/(6*E*Iz*leng); 
d= (6/5) *6*E*Iz/(G*A); 


k=[2*leng*2+d 6*E*Iz leng^2-d -6*E*Iz; 
6*E*Iz 0 -6*E*Iz 0; 
leng^2-d ^ -6*E*Iz 2*leng^2«d — 6*E*Iz; 
-6*E*Iz 0 6*E*Iz 0); 


% (1.3) stiffness matrix including зһеаг deformation 


б=ргор(10); % shear modulus 
c-1/ (6*E*Iz*leng); 
d= (6/5) *6*E*z/(G*A); 


к= [2*1eng^2*d 6*E*Iz leng^2-d -6*E*Iz; 
6*E*Iz 0 -6*E*Iz 0; 
leng^2-d -6*E*Iz 2*leng*2+d  6*E*Iz; 
-6*E*Iz 0 6*E*Iz 0); 

k=c*k; 


% (2) element mass matrix 


if Opt_mass==1 


PRA 
* (2.1) consistent mass matrix 
FN 
masserho*A*leng; 
mO-diag((0 1 0 11); 
m=mass/2*m0; 
elseif Opt_mass==2 
$------ xe 
% (2.2) lumped mass matrix 
$e 
mass-rho*A*leng; 
mO-diag([0 1 0 1)); 
m-mass/2*m0; 
else 


$ (2.3) diagonal mass matrix 


mass-rho*A*leng; 
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mO-diag([1 1 1 1]); 
m-mass/2*m0; 


10. FrameElement21 函数 
FrameElement21 函数 的 代码 如 下 . 


function [k,m]=FrameElement21 (prop, leng,beta,Opt_section, Opt_mass) 


Purpose: 
To calculate stiffness and mass matrices for the 2-d frame element 
(Euler-Bernoulli beam) 
nodal dof: {ul vl 01 u2 v2 02} 

Synopsis: 

(k,m]=FrameElement21 (prop, leng, beta, Opt_section, Opt_mass) 

Variable Description: 

k, m - element stiffness matrix and element mass matrix 
prop - the properties of materials and geometry: 
leng - element length 
beta - angle between the local and global axes 
is positive if the local axis is in the ccw direction from the global axis 
Opt section - option for type of cross-section 
= 1 - rectangular cross-section 
7 2 - circular cross-section 
Opt mass - option for mass matrix 
> 1 - consistent mass matrix 
7 2 - lumped mass matrix 


7 3 - diagonal mass matrix 


E-prop(1); % elastic modulus 
u-prop(2); % Poisson's ratio 
rho=prop (3) ; % mass density (mass per unit volume) 


if Opt_section==1 


h=prop (4); % height of beam cross-section 

b=prop (5); % width of beam cross-section 
elseif Opt section--: 

D=prop (4); % outer diameter of beam cross-section 

d=prop (5); $ inner diameter of beam cross-section 


end 
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A-prop(6); $ area of beam cross-section 
Iy-prop(7); * 2nd moment of inertia of cross-section about axis y 
* 2nd moment of inertia of cross-section about axis z 


% (1) rotation matrix for the coordinate transformation 


сс=соз (beta); ss=sin (beta); 


T-[ cc вз 0 0 0 
-ss cc 0 0 0 


0 0 1 0 0 ; 

0 0 0 сс зз ; 
0 0 0 -ss cc 0; 
0 0 0 0 0 1); 


&------ 
* (2) stiffness matrix 


% (2.1) stiffness matrix at the local axis 
$--- 


ka-E*A/leng; kc-E*Iz/(leng^3); 


kO=[ka 0 0 -ка 0 0; 


0 12*kc 6*leng*kc 0 -12* kc 6*leng*kc; 

0 6*leng*kc 4*leng^2*kc 0 -6*leng*kc  2*leng^2*kc; 
-ka 0 0 ka 0 0; 

0 -12*kc -6*leng*kc 0 12*kc -6*leng*kc; 


0 6*leng*ke 2*leng^2*kc 0 -6*leng*kc 4*leng^2*kc]; 


&-c 
k=T'*kO*T; 


if Opt_mass==1 

а-- 

% (3.1) consistent mass matrix 

4- 
ma-rho*A*leng/6; mb=rho*A*leng/420; 


m0=[2*ma 0 0 та 0 0; 
0 156*mb 22*leng*mb 0 54*mb -13*leng*mb; 
0 22*leng*mb 4*leng*2*mb 0 13*leng*mb -3*leng^2*mb; 
ma 0 0 2*ma 0 0; 
0 54*mb 13*leng*mb 0 156*mb -22*leng*mb; 


0 -13*leng*mb -3*leng*2*mb 0 -22*leng*mb 4*leng*2*mb]; 
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elseif Opt_mass 


% (3.2) lumped mass matrix 


mass=rho*A*leng; 
mO=mass/2*diag({1 1 0 1 1 0]); 


end 
$--. 


11. FrameElement22 函数 
FrameElement22 函数 的 代码 如 下 . 


% Purpose: 
% To calculate stiffness and mass matrices for the 2-d frame element 
E (Timoshenko beam) 

* nodal dof: {ul vl 01 u2 v2 02) 

* Synopsis: 

+ [k,m] -FrameElement22 (prop, leng, beta, Opt_section, Opt_mass) 

% Variable Description: 

% k, m- element stiffness matrix and element mass matrix 

% ргор - the properties of materials апа geometry 

$ leng - element length 

* beta - angle between the local and global axes 

% is positive if the local axis is in the ccw direction from the global axis 
% — Opt section - option for type of cross-section 

+ = 1 - rectangular cross-section 

à = 2 - circular cross-section 

% — Opt mass - option for mass matrix 

% = 1 - consistent mass matrix 

7 2 - lumped тазз matrix 

$: 

% 

+ 

% 

LI 


(0) calculation of the constants 


(0.1) evaluation of the constants 


E-prop(1); % elastic modulus 
u-prop(2); % Poisson's ratio 
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rho=prop (3) ; % mass density (mass per unit volume) 


if Opt_section: 


h=prop (4) ; % height of beam cross-section 
b=prop (5) ; % width of beam cross-section 
elseif Opt_section==2 
D=prop (4) ; % outer diameter of beam cross-section 
d=prop (5) ; % inner diameter of beam cross-section 
, end 
A-prop(6); $ area of beam cross-section 
Iy-prop(7); % 2nd moment of inertia of cross-section about axis y 
Iz=prop (8) ; % 2nd moment of inertia of cross-section about axis z 
polrmoment=prop (9) ; % selection of the polar moment of inertia 
shmodule=prop(10); . % selection of shear modulus 


% (0.2) calculate the shear modulus 


G=0; 
elseif shmodule==1 
G-E/ (2* (1+0)); 
else 
G=prop (10); 
end 


8-- 
% (0.3) selection of correction factor for shear energy 
4-- 

if Opt section--1 


ck=6/5; % correction factor of the rectangular cross-section 
elseif Opt_section==2 
ск=10/9; % correction factor of the circular cross-section 


сс=соз (beta); ss=sin (beta); 


T=[ cc ss 0 0 0 ; 
-ss cc 0 0 0 


0 0 1 0 0 0 

0 0 0 сс зз 0; 
0 0 0 -ss сс 0; 
0 0 0 0 0 1]; 


% (2) stiffness matrix 
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(2.1) stiffness matrix at the local axis 


o a ар op 


k0= [ka 0 0 -ka 0 0; 
0  4*kd 2*kd*leng 0° -4*ка 2*kd*leng; 
0 2*kd*leng kc*kd*leng^2 0 -2*kd*leng  -kc*kd*leng^2; 
-ka 0 0 ka 0 0; 
0 -4*kd -2*kd*leng 0 4*ка -2*kd*leng; 
0 2*kd*leng  -kc*kd*leng^2 0 -2*kd*leng  kc*kd*leng^2]; 


if Opt mass--l 


% 
% (3.1) consistent mass matrix 
= 
mass-rho*A*leng; 
m=mass/6*[2 0 0 1 о 0; 
0 2 0 0 1 O 
o о о о о о; 
1. 0l 0027 0, 7 
o 1 0 0 2 ; 
о о о о о о; 
else 
$---- 
* (3.2) lumped mass matrix 
giros 


mass-rho*A*leng; 
m0=mass/2*diag({1, 1, 0, 1, 1, 0]); 
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12. FrameElement31 函数 
FrameElement31 函数 的 代码 如 下 . 


pee 
function [k,m. 
E 
$ Purpose: 

% To calculate stiffness and mass matrices for the 3-d frame element 
+ (Euler-Bernoulli beam) 

* nodal dof: {ul vl wl Өх1 Oyl 6zl u2 v2 w2 Өх2 6y2 Ө22} 
% Synopsis: 

* [k,m]-FrameElement3l(prop,leng,xi,al,Opt section,Opt mass) 

$ Variable Description: 

% Kk, m - element stiffness matrix and element mass matrix 

E 

LI 

% 

E 

+ 

à 


rameElement31(prop,leng,xi,al,Opt section,Opt mass) 


prop - the properties of materials and geometry: 
leng - element length 
хі - the first row of the coordinate transform matrix between the 
local and global axes 
xi(1)-cos (x,x'), хі (2) =соз(х,у'), xi(3)-cos(x,z') 
al - angle between the reference coordinate system and the local 
* coordinate system 
+ for the space element 
&  Opt_section - option for type of cross-section 
+ = 1 - rectangular cross-section 
* 7 2 - circular cross-section 
& — Opt mass - option for mass matrix 
+ = 1 - consistent mass matrix 
+ 
% 
` 


= 2 - lumped mass matrix 


(0) calculation of the constants 


% (0.1) evaluation of the constants 


Е=ргор(1); % elastic modulus 
u=prop (2); % Poisson's ratio 
rho=prop (3) 7 % mass density (mass per unit volume) 
if Opt_section 
h=prop (4); % height of beam cross-section 
beprop (5); % width of beam cross-section 


elseif Opt_section==2 


% outer diameter of beam cross-section 


deprop(5); % inner diameter of beam cross-section 
end 
A-prop(6); $ area of beam cross-section 


Iy-prop(7); % 2nd moment of inertia of cross-section about axis y 
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Iz=prop (8) % 2nd moment of inertia of cross-section about axis z 


polrmoment=prop (9); % selection of the polar moment of inertia 
$ selection of shear modulus 


$ (0.2) calculate polar moment of inertia 


$ coefficients of the rectangle torsion bar for torsion deformation 
rt-[1.0, 1.2, 1.5, 2.0, 2.5, 3.0, 4.0, 5.0, 6.0, 8.0, 10.0, 50.0]; 
bt-[0.141, 0.166, 0.196, 0.229, 0.249, 0.263, 0.281, 0.291, 0.299, 
0.307, 0.313, 0.333]; 


if Opt section 


r0-h/b; 
If r0«1.0 

r0-1/r0; hx-h; h-b; b=hx; 
end 


ni=length (rt); 
bO=bt (1); 


if r0>=rt (end) 


b0=0.333; 
else 
for ii-1:ni-1 * linear interpolation for torsion coefficient 


if r0»-rt(ii) 
bO=bt (ii)*(bt(ii*1)-bt(ii))*(rO-rt(ii))/(rt(ii*1)-rt(ii)); 
end 
end 
end 


end 


if polrmoment== 
Jx-0; 

elseif polrmoment: 
if Opt section--1; Jx-b0*h*b^3; 
elseif Opt section- Jx-pi* (D^4-d^4)/32; end 

else 


Jx-prop(9); 


if shmodule--0 
6-0; 
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elseif shmodule 
G=E/(2*(l+u)); 

else 
G=prop(10); 

end 

onn 

$ (1) coordinate system transform matrix 

a- - 

cc-cos(al); ss=sin(al); 

с1=хі (1); c2-xi(2); c3-xi(3); 

la-sqrt (с1^2+с2^2); 


0, 1; -ss, cc, 0; -сс, -ss, 0]; 


dl--c2/1a; d2-cl/la; d3=0; 
el--cl*c3/la; e2--c2*c3/la; e3-1a; 
tl=[ 1, 0, 0; 0, cc, ss; 0, -ss, сс]; 
t2-[cl, c2, c3; dl, 42, d3; el, e2, е3]; 
tt-tl*t2; 
end 
t0=zeros (3,3); 
T=[tt tO tO tO; 
tO tt tO t0. 
tO tO tt tO; 
tO tO tO tt]; 


ka-E*A/leng; kb-G*Jx/leng; 
kc-E*Iz/leng^3; kd-E*Iy/leng^3; 


kll-[ ka 0 0 0 0 0; 
0 12*ke 0 0 0 6*kc*leng; 
0 0 12*kd 0 -6*kd*leng 0; 
0 0 0 кь 0 0; 
0 0  -6*kd*leng 0  4*kd*leng^2 0; 
0  6*kc*leng 0 0 0 ' 4*kc*leng^2]; 
ki2-[ -ka 0 о 0 0 07 
0 -12*kc ° 0 0 6*кс*1епа; 
0 0 -12*ка 0 -6*kd*leng 0; 
0 0 0 -kb 0 07 
0 0 б*ка*1епд 0  2*kd*leng^2 0; 
0  -6*kc*leng 0 0 0 2*kc*leng^2]; 


k21-k12'; 
k22=[ ka 0 0 0 0 07 
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12*ke 0 0 0 -6*kc*leng; 
0 12*kd 0 = 6*kd* Leng 0; 
0 0 кь 0 0; 
0 6*kd*leng 0 4*kd*leng^2 0; 
-6*kc*leng 0 0 0  4*kc*leng^2]; 
к12; k21, k22]; 


if Opt mass--l 
== 

% (3.1) consistent mass matrix 
ане = 

ma=rho*A*leng/420; mb-70*Jx/A; 


m11=[140 0 0 0 0 0; 

0 156 0 0 0 22*1eng; 

0 0 156 0 — -22*1eng 0; 

0 0 0 2*mb 0 

0 0 — -22*1eng 0  4*leng^2 0; 

0 22*1епд 0 0 0 — 4*leng^2]; 
m12={ 70 0 0 0 0 0; 

0 54 0 0 0 -13*leng; 

0 0 54 0 13*1eng 

0 0 0 mb 0 0; 

0 0 -13*1eng 0 -3*1епд^2 0; 

0 13*leng 0 0 0 -3*1епд^2]; 
т21=т12'; 
m22-[140 0 0 0 0 0; 

0 156 0 0 0 -22*1eng; 

0 0 156 0 22*1eng 0; 

0 0 0 2*mb 0 0; 

0 0 22*1eng 0  4*leng^2 0; 

0  -22*1eng 0 0 0 — 4*leng^2]; 


mO=ma*[m11, m12; m21, m22]; 


elseif Opt mass- 


* (3.2) lumped mass matrix 


ho*A*1eng/2; 
mb-rho*Jx*leng/2; 
mÜ-mass*diag([1, 1, 1, mb/mass, 0, 0,... 
1, 1, 1, mb/mass, 0, 0]); 


% (3.3) element matrix in global coordinate system 


13. FrameElement32 函数 
FrameElement32 函数 的 代码 如 下 . 


ъ--- 
function [k,m]-FrameElement32 (prop, leng, xi, al, Opt_section, Оре mass) 
"anten 
% Purpose: 
% To calculate stiffness and mass matrices for the 3-d frame element 
(Timoshenko beam) 
nodal dof: (ul vl wl 0x1 @yl 6zl u2 v2 м2 0x2 Oy2 622) 
Synopsis: 
[k,m]=FrameElement 32 (prop, leng, xi, al, Opt_section, Opt_mass) 
Variable Description: 
k, m - element stiffness matrix and element mass matrix 


à 
% 

` 

+ 

E 

+ 

% prop - the properties of materials and geometry: 

* leng - element length 

& xi - the first row of the coordinate transform matrix between the 
* local and global axes 

+ хі (1) =соз (х,х'), хі (2) =соз (х,у'), хі (3) =соз(х,2') 
è al - angle between the reference coordinate system and the local 
% coordinate system 

` for the space element 

$ Opt_section - option for type of cross-section 

E = 1 - rectangular cross-section 

ъ = 2 - circular cross-section 

% — Opt mass - option for mass matrix 

` = 1 - consistent mass matrix 

` 


= 2 - lumped mass matrix 


% (0.1) evaluation of the constants 


Е=ргор(1); % elastic modulus 
u-prop(2); ， % Poisson's ratio 
rho=prop (3); $ mass density (mass per unit volume) 


if Opt_section==1 
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h=prop (4); % height of beam cross-section 
b-prop(5); $ width of beam cross-section 
elseif Opt section 
D-prop(4); $ outer diameter of beam cross-section 
deprop(5); $ inner diameter of beam cross-section 
end 
A-prop(6); % area of beam cross-section 
Iy-prop(7); $ 2nd moment of inertia of cross-section about axis y 
Iz-prop(8); * 2nd moment of inertia of cross-section about axis z 
polrmoment-prop (9); $ selection of the polar moment of inertia 
shmodule-prop (10); $ selection of shear modulus 


% coefficients of the rectangle torsion bar for torsion deformation 
rt-[1.0, 1.2, 1.5, 2.0, 2.5, 3.0, 4.0, 5.0, 6.0, 8.0, 10.0, 50.0]; 
bt-[0.141, 0.166, 0.196, 0.229, 0.249, 0.263, 0.281, 0.291, 0.299, 

0.307, 0.313, 0.333]; 


if Opt section--l 
r0-h/b; 
if г0<1.0 
r0-1/r0; hx-h; h-b; b=hx; 


end 


ni-length (rt); 
bO=bt (1); 


if r0>=rt (end) 


b0=0.333; 
else 
for ii-1:ni-1 $ linear interpolation for torsion coefficient 


if r0>=rt (ii) 
bO=bt (ii)*(bt(ii*1)-bt(ii))*(rO-rt(ii))/(rt(ii*1)-rt Gi); 
end 
end 
end 


end 


if polrmoment--0 


; Jx-b0*h*b^3; 
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Jx-pi*(D^4-d^4)/32; епа 


Jx-prop(9); 
end 
&- 
% (0.3) calculate the shear modulus 
a we 


if shmodule--0 
G=0; 

elseif shmodule==1 
G-E/ (2* (1*u)) ; 

else 
G-prop(10); 


if Opt_section==1 


%. 

ск=6/5; % correction factor of the rectangular cross-section 
elseif Opt_section==2 

ck=10/9; % correction factor of the circular cross-section 
end 


%--- 
% (1) coordinate system transform matrix 


cc=cos(al); ss=sin(al); 
clexi(1); c2-xi(2);  c3=xi (3); 
la-sqrt (c1^2*c2^2); 


if la--0 

tt-[ 0, 0, 1; -ss, cc, ; -cc, -ss, 0]; 
else 

dl--c2/1a; d2-cl/la; d3-0; 

el=-cl*c3/la; e2--c2*c3/la; e3-1a; 


tl=[ 1, 0, 0; 0, cc, ss; 0, -ss, сс]; 
t2-[cl, c2, c3; dl, d2, d3; el, е2, е3]; 


tt-tl*t2; 
end 


t0-zeros(3,3); 

T-[tt tO tO t0; 
tO tt tO t0;. 
tO tO tt t0;... 
tO tO tO tt]; 
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ka=E*A/leng; kb=G*Jx/leng; 
kc=E*Iz/leng; kd=E*Iy/leng; 
ke-G*A/ (4*ck*leng); 


kll-[ ka 0 0 0 0 0; 

° 4*ke 0 0 0 2*ke*leng; 

° ° 4*ke 0 — -2*ke*leng 0; 

° 0 0 кь 0 0; 

0 0 -2*ke*leng 0 ke*leng^2*kd 0; 

0 ` 2*ke*leng 0 0 0 ке*1епд^2+кс]; 
к12=[-ка ° ° ° 0 0; 

0 -4*ke 0 0 0 2*ke*leng; 

0 0 -4*ke 0 -2*ke*1eng 0; 

0 0 0 -kb 0 0; 

0 0  2*ke*leng 0 ке*1епд^2-ка 0; 

0  -2*ke*leng 0 0 0  ke*leng^2-kc]; 
к21=к12'; 
к22=[ ка 0 0 0 0 0; 

0 4*ke 0 0 0 — -2*ke*leng; 

0 0 4*ke 0 2*ke*leng 0; 

0 0 0 kb 0 0; 

0 0  2*ke*leng 0 ke*leng*2+kd 0; 

0  -2*ke*leng 0 0 0 ke*leng^2*kc]; 
kO-[klI, k12; k21, k22]; 


if Jx==0 
k0(:,3)-0; kO(:,5)=0; kO(:,9)=0; k0(:,11)-0; 


keT'*kO*T, 

$: 

% (3) mass matrix 
q+ 


if Opt_mass==1 
$-- 
% (3.1) consistent mass matrix 


ma-rho*A*leng/6; mb-rho*Jx*leng/6; 
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mll=[ 2 0 0 0 0 0; 
0 2 0 0 0 0; 
0 0 2 0 0 
0 0 0 2*mb/ma 0 0; 
0 0 0 0 0 0; 
0 0 0 0 0 0); 

т12=[ 1 0 0 0 0 0°; 
0 1 0 0 0 0; 
0 0 1 0 0 0; 
0 0 0 mb/ma 0 0°; 
0 0 0 0 0 0; 
0 0 0 0 0 1: 

т21=т12'; 

т22=[ 2 0 0 0 0 0; 
0 2 0 0 0 0; 
0 0 2 0 0 0; 
0 0 0 2*mb/ma 0 0; 
0 0 0 0 0 0; 
0 0 0 0 0 ; 


mO=ma*[m11, m12; m21, m22]; 


mass-rho*A*1eng/2; 

mb-rho*Jx*leng/2; 

mO-mass*diag([1, 1, 1, mb/mass, 0, 0,... 
1, 1, 1, mb/mass, 0, 01); 


end 
g- 
% (3.3) element matrix in global coordinate system 
$- 
m=T'*m0*T; 


14. ImpulseRespt 函数 


ImpulseRespt 函数 的 代码 如 下 . 
goes 


% Purpose: 
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& The function subroutine ImpulseRespt.m calculates impulse response 
% of a damping or undamping structural system using modal analysis. 
% It uses modal coordinate equations to compute the modal responses 
% analytically, then convert the modal responses into physical 

% responses through the coordinate transformation. 

$ Synopsis: 

% — [eta,y,omegal, sdof2]=ImpulseRespt (kk, mm, fd, u, t, C, q0, dq0, a,b) 

% Variable Description: 

$ Input parameters: 

% kk, mm - system stiffness and mass matrices 

% fd - input or forcing influence matrix 

à u - number of the loads 

* t - time of evaluation 

* C - output matrix 

* q0, dq0 - initial conditions 

+ а, b - parameters for proportional damping [C]=a[M]+b[K] 

$ Output parameters: 

à eta - modal coordinate response 

+ у - physical coordinate response 

E omega - natural frequency 


[sdof,nl]=size (kk); 
(nstep,n2]=size(t); 


[V, D]=eig (kk, mm) ; % compute the eigenvalues and eigenvectors 
(lambda, ki]=sort (diag(D)); ^ $ sort the eigenvalues and eigenvectors 
omega=sqrt (lambda); % natural frequencies 
omegal-sqrt (lambda) /(2*pi) ; % the frequency vector in Hz 


% check whether the eigenvalues are infinite and eliminate 
% the eigenvectors associated with the bad eigenvalues. 


jk=0; 


for ii-1:sdof $ loop for find the infinite in omega 
Check-onega (ii); 
if check>1.0e12 


jk=jk+1; % location of the infinite frequency 
omi (jk)=ii; % storing the location of the infinite frequency 
end 


end 
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sdof2-sdof-jk; 

Vl-[V(:,1:5dof2)]; % truncate the modal vectors 
s- 
% (3) Normalize the eigenvectors and compute parameters 
ed 
Factor=diag(Vl'*mm*V1); 


Vnorm-V1l*inv (sqrt (diag(Factor))); $ eigenvectors are normalized 
omega2=diag (sqrt (Vnorm'*kk*Vnorm)); % natural frequencies 
Fnorm=Vnorm' *fd; % modal input force vector 


$- 
% (4) Compute modal damping matrix from the proportional damping matrix 
penk 

Modamp=Vnorm' * (a*mm+b*kk) *Vnorm % form the Rayleigh damping 
zeta=diag ( (1/2) *Modamp* inv (diag (omega2) ) ) ; % the damping ratio 


if (max(zeta) >= 1), 
disp('Warning - Your maximum damping ratio is grater than or equal to 1') 
disp('You have to reselect a and b ') 
pause 
disp('If you want to continue, type return key') 


eta0-Vnorm'*mm*q0; deta0=Vnorm'*mm*dq0; 
% initial conditions for modal coordinates both displacement and velocity 
eta=zeros (nstep, sdof2) ; 


for i=1:sdof2 % responses are calculated for n modes 
omegad=omega (i) *sqrt (1-zeta (i) ^2); 
phase=omegad*t; 


Exx=exp (-zeta (1) *omega (i) *t); 


Cl=eta0 (i); 
C2=(deta0(i)+eta0(i)*zeta(i)*omega(i))/omegad; 


XX=Fnorm(i,u)/omegad; 


eta(:,i)=C1*Exx.*cos(phase)+C2*Exx.*sin (phase)... 
+XX*Exx. *sin (phase) ; 
% response for the impulse excitation 


% (6) Convert modal coordinate responses to physical coordinate responses 
ren 
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eta=eta'; 


y=C*Vnorm*eta; 


if (atb)==0 
disp('The response results of undamping system') 


else 


disp('The response results of damping system") 


end 


disp 


('The excitation is impulse force') 


15. StepRespt 函数 
StepRespt 函数 的 代码 如 下 . 


% 


P de Ф de de de de de do de de = de d» de w^ PP P ар 


Purpose: 


The function subroutine StepRespt.m calculates step response for a 
damping or undamping structural system using modal analysis. It 
uses modal coordinate equations to compute the modal responses 
analytically, then convert the modal responses into physical 
responses through the coordinate transformation. 


Synopsis: 


(eta, y, omegal, sdof2] -StepRespt (kk, mm, fd, u, t, C, q0, dq0, a,b) 


Variable Description: 


Input parameters: 

kk, mm - System stiffness and mass matrices 

fd - Input or forcing influence matrix 

u - number of the loads 

t - Time of evaluation 

C - Output matrix 

q0, dq0 - Initial conditions 

a, b - Parameters for proportional damping [C]-a[M]4b[K] 
Outpur parameters: 

eta - modal coordinate response 

y - physical coordinate response 

omega - natrural frequency 


t-t'; 
[sdof,n1]=size (kk); 
[nstep,n2]-size(t); 


RSE ЖБИ 205 


[V,D]-eig(kk,mm); $ compute the eigenvalues and eigenvectors 
[lambda, ki]=sort (diag(D)); % sort the eigenvalues and eigenvectors 
omega=sqrt (lambda) ; % natural frequencies 

omegalesqrt (lambda) / (2*pi); % the frequency vector in Hz 
V=V(:,ki); 


% check whether the eigenvalues are infinite and eliminate 
% the eigenvectors associated with the bad eigenvalues 


for ii=1:sdof % loop for find the infinite in omega 
check=omega (ii); 
if check>1.0e12 


jk=jk+1; % location of the infínite frequency 
omi (jk)=ii; % storing the location of the infinite frequency 
end 


end 


Sdof2-sdof-jk; 
V1-2[V(:,1:sdof2)]; % truncate the modal vectors 
$--- 

* (3) Normalize the eigenvectors and compute parameters 
% 
Factor=diag(Vl'*mm*V1); 


Vnorm-Vl*inv(sqrt (diag (Factor))); % eigenvectors are normalized 
omega2=diag (sqrt (Vnorm'*kk*Vnorm)); $ natural frequencies 
Fnorm-Vnorm'*fd; $ modal input force vector 


Modamp=Vnorm' * (a*mm+b*kk) *Vnorm; % form the Rayleigh damping 
zeta=diag ( (1/2) *Modamp*inv (diag (omega2))); % the damping ratio 


if (max(zeta) >= 1), 
disp('Warning - Your maximum damping ratio is grater than or equal to 1') 
disp('You have to reselect a and b ') 
pause 
disp('If you want to continue, type return key') 
end 
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etaÜ0-Vnorm'*mm*q0; deta0=Vnorm' *mm*dq0; 
% initial conditions for modal coordinates both displacement and velocity 


eta=zeros (nstep, sdof2) ; 


% responses are calculated for n modes 


omegad=omega (i) *sqrt (1-zeta(i)^2); 
phase=omegad*t; 
Exx=exp (-zeta (i) *omega (i) *t) 7 


Cl=eta0 (i); 
C2- (deta0 (1) +eta0 (i) *zeta (i) *omega (i) ) /omegad; 


Dlezeta (i) *omega (i) /omegad; 
II-ones (nstep, 1); 


XX=Fnorm(i,u) / (omegad*2+zeta (i) *2*omega (i) ^2) ; 


eta(:,i)=C1*Exx.*cos (phase) +C2*Exx.*sin (phase). 


+ XX* (II-Exx. *cos (phase) -D1*Exx.*sin (phase) ) ; 
$ response for the step excitation 


% (6) Convert modal coordinate responses to physical coordinate responses 


eta=eta'; 
y-C*Vnorm*eta; 
if (atb)==0 

disp('The response results of undamping system') 
else 

disp('The response results of damping. system') 
end 


disp('The excitation is step force') 


16. HarmonicRespt 函数 
HarmonicRespt 函数 的 代码 如 下 . 


% Purpose: 
* The function subroutine HarmonicRespt.m calculates harmonic response 
% for a damping or undamping structural system using modal analysis. 
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It uses modal coordinate equations to compute modal responses analytically, 
then convert the modal responses into physical responses through 
the coordinate transformation. 
Synopsis: 
[eta,y,omegal,sdof2]- HarmonicRespt (kk,mm, fd,omega0, t, C, q0, dq0, a,b) 
Variable Description: 
Input parameters: 
kk, mm - System stiffness and mass matrices 
fd - Input or forcing influence matrix 
omega0 - Frequency of the excitation 
t - Time of evaluation 
C - Output matrix 
90, 490 - Initial conditions 
a, b - Parameters for proportional damping [C]-a[M]*b[K] 
Output parameters: 
eta - modal coordinate response 
y - physical coordinate response 
omegal - natural frequency 


P dh ® Әр oe do P ар GP ар do 


Ф ар æ o p p ар æ 


[sdof,n1]-size(kk); 
(nstep,n2]=size(t); 


[V, D] =eig (kk, mm) ; % compute the eigenvalues and eigenvectors 
(Lambda, ki]-sort (diag(D)); % sort the eigenvalues and eigenvectors 
omega-sqrt (lambda) ; % natural frequencies 
omegal=sqrt (lambda) / (2*pi); % the frequency vector in Hz 
V=V(:,ki); 
$- 
% (2) Check the eigenvalues 
%-= 
% check whether the eigenvalues are infinite and eliminate 
% the eigenvectors associated with the bad eigenvalues 
jk-0; 
for ii-1:sdof $ loop for find the infinite in omega 


check=omega (ii); 

if check>1.0e12 
j $ location of the infinite frequency 

* storing the location of the infinite frequency 


MALTAB 有 限 元 结构 动力 学 分 析 与 工程 应 用 


sdof2-sdof-jk; 
idof2)]; $ truncate the modal vectors 


$ (3) Normalize the eigenvectors and compute parameters 


nce 


Factor-diag(Vl'*mm*V1); 

Vnorm-Vl*inv(sqrt (diag(Factor))); % eigenvectors are normalized 
omega2-diag (sqrt (Vnorm' *kk*Vnorm)) ; % natural frequencies 
Fnorm=Vnorm' * fd, % modal input force vector 


$ 
% (2) Compute modal damping matrix from the proportional damping matrix 


[MSN MM 


Modamp-Vnorm' * (a*mm+b*kk) *Vnorm; % form the Rayleigh damping 
zeta-diag((1/2)*Modamp*inv (diag (omega2) ) ) ; % the damping ratio 


if (max(zeta) >= 1), 
disp('Warning - Your maximum damping ratio is grater than or equal to 1') 
disp('You have to reselect a and b ') 
pause 
disp('If you want to continue, type return key') 


eta0=Vnorm'*mm*q0; deta0=Vnorm' *mm*dq0; 


% initial conditions for modal coordinates both displacement and velocity 
eta=zeros (nstep, sdof2) ; 


phase0=omega0*t; 


for i-1:sdof2 % responses are obtained for n modes 
gama-omega0/omega (і); 
omegad=omega (i) *sqrt (1-zeta (1)^2); 
phase=omegad*t; 
Exx-exp (-zeta (i) *omega (i) *t) ; 


Cl=eta0 (i); 
C2=(deta0 (i)+eta0 (i) *zeta(i) *отеда (i) ) /omegad; 


аге ( (1-gama^2) ^2* (2*zeta (i) *gama) ^2) ; 
XX-Fnornm (1) / (omega (i) ^2*X0) ; 
XP=atan ( (2*zeta (i) *gama) / (1-gama^2) ) ; 


D1- (zeta (i) *omega (i) *соз (XP) *omega0*sin (XP) ) /omegad; 
D2=cos (XP) ; 
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eta(:,1)=C1*Exx.*cos(phase)+C2*Exx.*sin(phase)... 
—XX*Exx.*(Dl*sin(phase)+D2*cos(phase))... 
*XX*cos (phase0-XP) ; 
% response included transient-state for the harmonic excitation 


eta-eta'; 
y-C*Vnorm*eta; 


if (a+b 
disp('The response results of undamping system') 
else 
disp('The response results of damping system') 
end 


disp('The excitation is harmonic force') 


17. femFFT 函数 

femFFT 函数 的 代码 如 下 . 

acs 

function [yfft, freq] =femFFT(y,t) 

"a 

$ Purpose: 

% This function subroutine calculates Fast Fourier Transform (FFT) of 
% the time domain signal. The time domain data are provided with 
% corresponding time interval. 

% Synopsis: 

$ [yfft, freq]-femFFT(y,t) 

% Variable Description: 

% Input parameters - y : Time domain data n by 1 

% t : Time interval for y of n by 1 size 

% Output - yfft : Absolute value of FFT of the time domain data y 
% freq : Frequency axis values 

% Notes: 

` The number of data points for y should be power of 2, and 

% truncation is needed to achieve the requirement 


% (1) Compute number of data points and sampling time interval 


ntime-max(size(t)); 
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t (1,ntime)-t(1,1))/(ntime-1); 


(2) Truncate the data points of y 


æ e аю р. 


% Extract data points at the power of 2. Truncate extra data points 

% so that the final number of data points is in the power of two and 

$ also as close as possible to the given number of data points 
N-fix(logl0(ntime)/10g10(2)); 


* Calculate FFT of the time domain data and 
% take absolute values of the result 
yfftefft(y(1:2^N, :)) ; 
yfft-abs (yfft (1:2^N/2, :) ) *dt; 


% Set up the frequency scale from the given sampling interval. 
% Apply the Nyquist criterion to establish the maximum frequency 


freq0-0; 
freqf= (1/dt)/2; % Maximum or final frequency value 
df-freqf/(2^N/2); * Frequency interval 


freq-0:df:freqf-df; % Frequency axis values 
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64 平面 问题 


弹性 力学 平面 问题 可 分 为 平面 应 力 问题 和 平面 应 变 问题 . 对 于 线 弹 性 各 向 同性 体 ， 分 
析 时 除 弹性 矩阵 不 同 外 ， 其 他 都 相同 . 因此 下 面 在 分 析 时 ， 除 在 给 出 与 弹性 矩阵 有 关 的 显 
式 时 加 以 说 明 外 ， 其 他 地 方 不 加 以 区 别 

对 于 平面 应 力 问题 ， 弹 性 矩阵 万 为 


lg 0 
b= Tp 1 0 (6-1) 
о o 1-4 
2 
对 于 平面 应 变 问题 ， 弹 性 矩阵 也 为 
zit 
1 a 0 
El-u) [а 1 了 
=— P 6-2 
(+д)й-—2д)|1-д em 
1-2u 
2(1-u) 


611 常 应 变 三 角形 单元 

1. 离散 化 

有 限 元 法 应 用 于 结构 分 析 时 ， 第 一 步 就 是 把 结构 离散 化 . 对 于 平面 问题 ， 最 简单 、 最 常 
用 的 离散 方式 是 将 其 分 割 为 有 限 个 三 角形 单元 ， 单 元 之 间 在 三 角形 项 点 上 相连 ， 如 图 6.1(a) 
所 示 . 这 种 单元 虽然 简单 ， 但 也 可 用 来 拟 合 复杂 边界 体形 . 虽然 当 边 界 为 曲线 时 ， 存 在 以 
三 角形 直 边 来 代替 而 带 来 离散 误差 ， 但 比 利 用 矩形 单元 进行 离散 时 的 离散 误差 小 得 多 


861 常 应 变 三 角形 单元 示意 图 
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(b) 


861 ( 续 ) 
图 6.1(b) 是 从 如 图 6.1(a) 所 示 离 散 体系 中 取出 的 第 е Troc, ROBUR. jA m НОЙ 


针 排列 , 每 个 节点 位 移 在 单元 平面 内 有 两 个 分 量 . 整个 单元 将 有 6 个 节点 位 移 分 量 ， 可 用 
列 阵 表示 为 


&=[& 5 E] =[u v ú v u, v,J (6-3) 
同样 ， 单 元 节点 力 列 阵 为 
Pele Fr FLT =[F Fy Е, Fy F. Ful) (6-4) 
单元 上 作用 的 体积 力 记 为 
t ° 
若 单元 的 边界 是 物理 边界 ， 并 且 该 边界 有 表面 力作 用 ， 该 表面 力 记 为 
=) © 


体积 力 和 表面 力 表 达 式 中 的 矩阵 元 素 均 是 沿 坐标 方 向 的 分 布 载荷 集 度 . 

2. 用 面积 坐标 建立 单元 位 移 场 

对 于 三 角形 单元 ， 完 全 可 以 同 杆 系 单元 一 样 ， 在 直角 坐标 系 下 采用 广义 坐标 法 建立 形 
函数 及 单元 位 移 场 . 但 下 面 将 引入 的 面积 坐标 除了 也 可 以 确定 点 的 位 置 外 ， 对 三 角形 单元 
的 分 析 还 具有 许多 优越 性 . 

1) 面积 坐标 的 定义 

设 p 为 三 角形 单元 中 的 一 点 ， 与 3 个 顶点 i,j, m 相连 ， 则 可 将 Лут 分 割 成 3 ASR, 
如 图 6.2 所 示 ， 分 别 记 这 3 个 小 三 角形 面积 为 
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[] g" I 
о ARNE sen 


图 6.2 面积 坐标 示意 图 


A= Aym AEA A = Aggy (6-7) 
则 显然 存在 如 下 恒 等 关 系 
А=А+А,+А„ = A, (6-8) 
六 点 位 置 可 由 3 个 比值 来 确定 
(1.1.1) 
其 中 
L=A/A, L=4/4, L,=A4,/A (6-9) 


WL, Ly, Ln 为 面积 坐标 . 
面积 坐标 的 特点 如 下 . 
三 角形 内 与 节点 i 的 对 边 j-m 平行 的 直线 上 的 诸 点 有 相同 的 万. 
° ”三 角形 3 个 角 点 的 面积 坐标 是 if 0,0) у(0,1,0), т(0,0,1). 
° ”三 角形 3 条 边 的 边 方程 是 
jm 边 L-0: mái) L,=0; iyi L,-0 
° 3 个 面积 坐标 并 不 相互 独立 ，3 个 面积 坐标 间 必 然 满足 
L+L +L =1 (6-10) 
2) 面积 坐标 与 直角 坐标 之 间 的 关系 
设 三 角形 的 3 个 顶点 在 直角 坐标 系 中 的 位 置 是 ix уу), (х, у,),т(х„,у„), p A 
ЖЖ (х, у), Ш 6.3 所 示 . 将 4,4, 怒 ,4 等 用 直角 坐标 表示 ， 就 可 以 建立 面积 坐标 和 直 
角 坐 标的 转换 关系 . 


图 6.3 面积 坐标 与 直角 坐标 的 关系 
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= 
= 


Meo ne Jes -х,)»] 
=2(a +bx+cy) 


角 坐 标 轮换 规则 为 了 一 了 一 疡 一 
L=&= (a +х+су) (i2j9m31i) 
RP, а, b. c DHA 
а, = хуу, уух, 
b = y,— y, (in j>m-i) 
с 7x,-X, 


面积 坐标 用 直角 坐标 表示 的 矩阵 表达 式 为 


a b a) 
= a, b, du 

a, b, Cy ily. 
HELL, Ly, 分别 乘 以 xz,xzw， 然 后 相 加 ， 可 以 得 到 


x=xL,+x,L, +x,L, 


同 理 
у= + y,L,* y,L, 
式 (6-12) 和 式 (6-13) 与 式 (6-10) 可 合并 表示 为 


) [13 11 
хе=\х, x, x, L, 
У) |» у, Im 102 


建立 了 坐标 间 的 变换 关系 ， 按 求 导 法 可 得 


3 1/,8,,9,, a 
sk m S ИРДЕ А 
2 (n +42) 


Әх 24 
aio re 
ду 24\'9 OL “aL, 
利用 数学 知识 可 以 证 明 
a [A -Apr 
[1204 тану) 244 
spa =__\Ё!__ 
J. as (a*B*1)! * 
RP: m. B. у ЖИШШ: 1,79 jj ELCHE. 


(6-11) 


(6-12) 


(6-13) 


(6-14) 


(6-15) 


(6-16) 


(6-17) 


Rot 弹性 问题 


3) 常 应 变 三 角形 单元 的 位 移 场 
常 应 变 三 角形 单元 的 形 函 数 取 面积 坐标 ， 即 
N=L, N=L,, 
由 此 可 得 形 函 数 矩 阵 为 
м ом, 0 N, 0 
5 N, 0 N, 0 N, 


则 单元 内 任意 一 点 的 位 移 可 表示 为 


3. 单元 应 变 和 单元 应 力 


N,-L, 


Jena NL NL] 


有 了 单元 的 位 移 模式 ， 就 可 以 利用 平面 问题 的 几何 方程 


є, 
E=) €, 
Yo 


求 得 应 变 分 量 . 将 式 (6-20) 代 入 式 (6-21) 得 到 


而 子 矩 阵 


G b 


ARE TK (6-22) FT, HIT AAD. bj. bs 


ди/дх 
-| э 
ди/ду + dv/ax 


(i, j, m) 
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(6-18) 


(6-19) 


(6-20) 


(6-21) 


(6-22) 


(6-23) 


(6-24) 


c^ с, 和 cu 等 都 是 常数 ， 故 矩阵 下 中 的 


元 素 都 是 常量 ， 因 而 单元 中 任意 一 点 的 应 变 分 量 e, e, Aly, 也 都 是 常量 ， 故 通常 称 这 种 


单元 为 常 应 变 单元 . 
将 式 (6-22) 代 入 应 力 应 变 关系 式 ， 得 到 


o=DBS = 55° 


式 中 ，5 为 应 力矩 阵 ， 以 分 块 形式 表示 为 


S=D[B, B, В„]=[5, S, S,] 


对 于 平面 应 力 问题 ， 的 子 矩阵 可 写 为 


Ei 
 2(1-)A| | : 
1 A 14, 


(6-25) 


(6-26) 


(6-27) 
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对 于 平面 应 变 问题 ， 5 的 子 矩 阵 可 写 为 


b, La 
l-4 
Е(1-д) 4 
=) „ый 6-28 
'"Y0-2)0-22)4| 1-2" li (628) 
1-20. 1-24 


b, 
20-4)? 2(1-д)” 
4. 单元 刚度 矩阵 和 等 效 节点 力 
1) 单元 刚度 矩阵 


根据 最 小 势能 原理 ， 可 以 推导 得 到 三 角形 单元 的 单元 刚度 矩阵 为 
к = [[[В'рва‹2= [|B' DBhaxdy (6-29) 
2 a 


式 中 ，/ 是 单元 的 厚度 . 由 于 应 变 矩 阵 是 常数 矩阵 ， 若 单元 厚度 也 是 常数 ， 则 式 (6-29) 可 
， 简 化 为 
К“ = B'DBhA (6-30) 
将 应 变 矩 阵 式 (6-23) 和 平面 应 力 问题 的 弹性 矩阵 式 (6-D) 代 入 式 (6-30)， 则 平面 应 力 问题 
中 常 应变 三 角形 单元 的 刚度 矩阵 的 显 式 为 


K, K, K, 
K'=|K, K, K, (6-31) 
K, K, X. 
其 中 
py (bot Ece, ube, + Heb, 
к, = ВВА = — P 2 Е (6-32) 
4(1-42)я| ась +1 — се, +1-А с^, 
2) 等 效 节点 力 


(1) 单元 自重 . 设 单元 体积 密度 为 P ， 8 为 重力 加 速度 ， 自 重 沿 》 轴 负 向 ， 则 体积 力 
向 量 可 写 为 


p, -{ } (6-33) 
a. 


Е N, 
F; =; F; }= (f| N, |p,hdxdy (6-34) 
F.) “LN。 


Fi=JJNphdxdy (i, j, m) (6-35) 
2 


其 中 
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则 节点 i 的 等 效 节点 力 为 


кр ° pesa =l б (6-36) 
TRS ye g^g4 
于 是 均 质 等 厚度 平面 三 角形 单元 自重 引起 的 等 效 节 点 力 为 

т=—уоеМ[ 0101 0] (6-37) 


D 线性 表面 分 布 力 . 设 单元 六 边 长 度 为 7 ， 受 到 线性 分 布 的 表面 力 p=[ac c]. X 
中 为 法 向 压力 ，z 为 切 向 力 ， 它 们 的 正方 向 如 图 6.4 BUR. 取 局 部 坐标 s ， 其 原点 为 节 
点 i， 由 i 指向 /为 正方 向 ， 则 线性 分 布 的 压力 表达 式 为 


p=p,+3(P.-P,) (6-38) 


故 分 布 力 向 量 为 
人 asinw 一 rcosw |- 1 о(у,-у,)-т(х, 2 (6-39) 


-ocosa—rsinal | -о(х,-х,)-т(у,-у,) 


图 6.4 线性 分 布 的 压力 


根据 面积 坐标 的 定义 ， 用 局 部 坐标 s 表 示 的 3 个 形 函 数 在 尹 边 上 的 值 为 


N=1-7, N=}, N,=0 (6-40) 


则 线性 分 布 表面 力 分 配 到 节点 上 的 等 效 节点 力 为 


Fi м 
Е =) F; (= || N7 (рна (6-41) 
F; NI 


将 式 (6-39) 与 式 (6-40) 代 入 式 (6-41) 得 到 


m= *[(»-»,)®% (-x)a -om (я) 0 о] 
i s (6-42) 
*eh[s-x)n (=) (x -x)z (,->,)ъ 0 0] 


其 中 
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о=2о,+о,, 0,;70,*20,, т=?т+т, t, -1,*2T, 
KRY, ms. су. тт, Аі j АТИЛА КИ. 
当 表 面 力 为 均匀 分 布 的 压力 时 ， 即 a = 0, =o。， 则 
ғ: =н) (5x) (иә) (ә) o of 


若 表面 力 的 方向 固定 ， 如 表面 载荷 向 量 为 


的 二 T 


则 相应 于 式 (6-44) 的 表面 力 的 等 效 节点 力 为 
F; - LH [(2p.* pj) o (p*2p) ооо] 


(6-43) 


(6-44) 


(6-45) 


进一步 ， 当 沿 x 方 向 的 线性 分 布 载荷 为 均匀 分 布 载荷 ， 即 p = ру =p 时 ， 等 效 节点 


力 为 
к= уру отоо of 
若 为 三 角形 分 布 载荷 ， 此 时 р, =0， 则 


5. 单元 质量 矩阵 
1) 协调 质量 矩阵 
设 单元 内 р Жїл ЖЖ, WA 
M° = ph |] N" Ndxdy 
将 式 (6-19) 代 入 式 (6-48) 得 到 
N 0 NN 0 NN, 0 
о м 0 NN, 0 NN, 
о м 0 NN, 0 
NN 0 MN 0 NN, 
N,N, 0 N,N, 0 N: 0 
о NN 0 N,N, 0 м 


利用 三 角形 面积 坐标 的 积分 公式 ， 则 有 


м=р “д 


[v.a a =—— _ -l4 (nsshjm) 

D (1+1+0+2)! 12 e 
1010! 

ув = 21010! 16 (=i, j.m) 


(2+0+0+2)! ^6 


(6-46) 


(6-47) 


(6-48) 


(6-49) 


(6-50) 


(6-51) 


则 基于 式 (6-50) 和 式 (6-51) 得 到 平面 问题 常 应 变 三 角形 单元 的 协调 质量 矩阵 (一 致 质量 矩阵 ) 为 
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12 0 1/4 0 1⁄4 0 

0 1/2 0 1/4 0 1/4 

14 0 1/2 0 1⁄4 0 
м“ PPA 


(6-52) 
3|0 1⁄4 0 1⁄2 0 1⁄4 
14 0 1⁄4 0 1⁄2 0 
0 1⁄4 0 1⁄4 0 1⁄2 
2) 集中 质量 矩阵 
将 单元 质量 平均 分 配 到 单元 的 3 个 节点 上 便 得 到 常 应 变 三 角形 单元 的 集中 质量 矩阵 
m-i (6-53) 


6.12 ”和 矩形 双 线性 单元 
т. йан 


如 图 6.5(a) 所 示 为 4 个 节点 的 平面 矩形 单元 ， 共 有 8 个 节点 位 移 参数 ， 可 以 直接 在 直 
角 坐 标 系 下 进行 分 析 , 为 使 分 析 过 程 简洁 明了 ， 这 里 引入 一 个 无 量 纲 的 正则 坐标 (自然 坐 
标 )， 令 


=, 2-2 (6-54) 


在 正则 坐标 系 下 原 矩 形 单元 映射 为 边 长 为 2 的 正方 形 单元 ， 如 图 6.5(b) 所 示 . 
设 单元 的 位 移 函数 为 
cs +e tay] aen 


(6-55) 
v 2 a, +a, + ал+ от 
式 中 ，@ (i=1,2,…, 8) 为 广义 坐标 ， 可 根据 节点 位 移 求 出 . 
й m 
" 3 
т 
"ND E 
і = 
b 
4 2 
В а a 4 
(a) 直角 坐标 系 下 单元 示意 O) 正则 坐标 系 下 单元 示意 
图 6.5 “矩形 双 线性 单元 
ёп, AH 4 条 边界 线 的 方程 分 别 为 
7+1=0, €-1=0 Ee 
n-1=0, €+1=0 o) 


根据 形 函 数 具有 的 性 质 : 本 点 处 形 函 数 为 1， 其 他 点 处 形 函 数 为 0. 由 式 (6-56) 可 知 下 列 
函数 
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N,=a(E-1)(7-1) 
N,=A(E+1)(7-1) 


(6-57) 
N, = 7(€+1)(7 +1) 
М, =6(€-1)(7+1) 
将 自动 满足 形 函 数 其 他 点 为 零 的 性 质 . 代入 本 点 坐标 且 令 其 等 于 1， 可 求 得 
а=-В=ү--5=1 (6-58) 
将 式 (6-58) 代 回 式 (6-57) 且 引入 如 下 记号 
名 5， mm (6-59) 
则 形 函 数 可 写 为 
. №, =(1+4)(1+л,)/4 (6-60) 
单元 的 位 移 函 数 为 
evo (6-61) 
v 
其 中 
S-[u w w w wy щ wJ . (6-62) 
N=[N, N, N, М,]=[М1, Мы, Мы, м] (6-63) 
2. 应 变 和 矩阵 和 应 力矩 阵 
采用 与 三 角形 单元 完全 相同 的 分 析 方法 和 步骤 可 得 以 下 结果 . 
1) 应 变 矩 阵 I 
B=[B B, B, B] (6-64) 


其 中 


1 


bs (1+) 0 
ШШ 


0 дї (i=1, 2,3, 4) (6-65) 
ап (1+6) bE (rm) 
式 中 ，a 和 4b 为 x 方向 、y 方 向 单元 边 长 的 一 半 . 


2) 应 力矩 阵 
平面 应 力 的 应 力矩 阵 为 
S=[S, S, S, S,] (6-66) 
其 中 
bé (1+) van, (1+ &) 
0 atanp) an, (1+%) (i=1,2,3,4) (6-67) 


San (+e) Chen) 
FRAY LEARY ЈАНЕ, HER (6-67) EBON (1—07), v Bete vi(1- v?) ВТ]. 
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3. 单元 刚度 矩阵 和 单元 等 效 载荷 列 阵 


利用 最 小 势能 原理 可 推 得 单元 的 刚度 矩阵 和 等 效 节 点 载荷 列 阵 如 下 . 


1) 单元 刚度 矩阵 


其 中 


K;, =abt[' [BIDBdédn (r,s=1,2,3,4) 


平面 应 力 时 


K; = 


Et к, К, 
| ,5=1,2,3,4 
р K, (s ) 


& PEE (rinm. ) отл) 


K, -lm Ita) 


K,= (ёл, + nd. ) 


平面 应 变 时 ， 将 式 (6-70) 中 EE 改 为 E/(1 一 忆 ) ，v 换 作 y/(1 -只 ) 即 可 . 


К, адл, {+ 人 пл) 


2) 单元 等 效 节点 载荷 列 阵 


F; -(f м'є;агал+ у, | N' F;ar) 


式 中 后 一 项 只 有 单元 处 于 边界 且 受 有 表面 力 时 才 有 . 


4. 单元 质量 矩阵 
1) 协调 质量 矩阵 
和 矩形 双 线 性 单元 的 协调 质量 矩阵 为 
40201020 
04020102 
20402010 
._ p40 2040201 
36/1 0204020 
01020402 
20102040 
02010204 


221 


(6-68) 


(6-69) 


(6-70) 


(6-71) 


(6-72) 


(6-73) 
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2) 集中 质量 矩阵 


M =r (6-74) 


6.2 空间 与 轴 对 称 问题 


6.2.1 常 应 变 四 面体 单元 
т. 位 移 函数 
如 图 6.6 所 示 为 常 应 变 四 面体 单元 ， 以 4 个 顶点 站 j,k 和 1 为 节点 ， 每 个 节点 有 3 个 
位 移 分 量 ， 可 以 写成 列 阵 形式 为 
ó=[w v, wJ (6-75) 


L 


866 常 应 变 四 面体 单元 
因此 ， 单 元 的 节点 位 移 矩阵 为 
s-[8 & б б] (6-76) 
与 平面 问题 相似 ， 假 定单 元 内 任 一 点 的 位 移 分 量 是 坐标 的 线性 函数 
U=Q +G@x+@,y+@,z 
V =Q; +ах+0,у+ 02 (6-77) 
w=0 +X y Oz 
设 节点 i J. k ALL BARA BIDS (x, yz) (xyz) Qu, z,) 1 (x, ух), d& 
它们 代入 式 (6-77) 的 第 一 式 ， 得 出 各 节点 在 x 方 向 的 位 移 是 
u) tx » а || 
uy |! x, у, z |æ 


= 6-78. 
uy l у, z |а 5 | 
и) 1х » zji& 
联 立 求解 并 代 回 整理 即 可 写成 与 平面 问题 类 似 的 形式 : 
__1|(а+х+су+дг)и,+(а,+Ьх+с,у+ауг}и,+ "S 


u- 
6V | (a, * bxc, y doz)u, * (a, bxc; y * diz)u, 
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其 中 

yr рау ty, 2; b, : 

@=x у, aj һ=- у, a Gall x z, 

x »z l y z l x z, 

lx y 2, 

а à X, y, лы) y Al X, y, Z, 

pem eue s 

хиа 


RP, V 是 四 面体 的 体积 .为 了 使 四 面体 的 体积 不 为 负 值 ， 单 元 节点 编号 i ,j,k 和 1 必须 
按照 一 定 的 顺序 ， 在 右手 坐标 系 中 ， 当 按照 jk 方向 转动 时 ， 右 手 螺旋 应 向 1 的 方 


向 前 进 . 
引入 如 下 形 函 数 : 
N, E +bx+ay+dz) (bjk T) (6-80) 
则 式 (6-78) 也 可 写成 
и= Nu + Ми, + Ми, + Ми, (6-81) 
同 理 ， 另 两 个 位 移 分 量 可 表示 为 
у= Му, + Му, + N,v, + Му, (6-82) 
w= Мм, + N,w, + N,w, + Nw, (6-83) 
则 单元 位 移 的 矩阵 表示 为 
и 
метри NE №, NL] (6-84) 
w 


2. 应 变 和 矩阵 和 应 力矩 阵 
DEZ 
在 空间 问题 中 ， 每 个 点 具有 6 个 应 变 分 量 


ди 
ox 
ov 
E, E 
€, д» 
а=). % (6-85) 
>: " 
Vz 


+ 


x 
&|g 9/2 elr 
+ 
&jg eig e| 
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将 式 (6-84) 代 入 式 (6-85) 可 得 


e=Bo -[B, -В, B, -B,]é° 
其 中 
b 0 0 
0 c 0 
1|0 0 a, ИРЕ 
B ob 0 (r=i,j, kl) 
0 а, с, 
d, 0 b 
2) 应 力矩 阵 
将 式 (6-86) 代 入 物理 方程 可 得 
o={o, 9, 0, f, 1, n] = DBS =55 
则 应 力矩 阵 S 为 
S=DB=[S, S, S, 5] 
其 中 
b Ac, Ad, 
Ah c, Ad, 
_ pp 266] AB. 4& d | os, 
S, = DB, =~ de. A 6 (r=i,j,k,l) 
0 Ad, Ac, 
Ad, 0 Ab 
Imm __1-2>» __ E(1-v) 
^il ^^3ü-5' A a-a) 
式 中 ， 对 于 各 向 同性 材料 ， 根据 胡 克 定律 ， 弹性 矩阵 D 由 下 式 决 定 : 
j ECT Y 0 0 0 
=v lv 
1 0 0 0 
=v 
"s 1 0 0 0 
E(1-v 
D- К 1-2» 
(+00220) 对 зу ° 0 
1-2v 
ы 2(1-v) 
1-2v 
2(-v) 


(6-86) 


(6-87) 


(6-88) 


(6-89) 


(6-90) 


(6-91) 


(6-92) 
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3. 单元 刚度 矩阵 和 等 效 节点 载荷 


1) 单元 刚度 矩阵 
由 最 小 势能 原理 可 推 得 单元 刚度 矩阵 为 


К, 

К. К. K; К, 

„> т вт -| Ал An А, А, T 
К = [В DBdF =B DBV = K x (6-93) 


ДАЧЕ ЛЯНЕ К, A 


K, = B? DBV 
a [ht e edd) — Abe + Aa, Abd +hdb | езу 
=P] Ао Аре, ^ ce*A(dd +hb) Acd,+Adc, 
4d,b, + Abd, Ade, + Acb, d,d, + A,(b,b, +6,¢,) 


2) 等 效 节点 载荷 


F; =| N'Fav+ | М'Еа$=[Ед Ед F} FIT (6-95) 


6.2.2” 轴 对 称 问题 
工程 中 有 一 类 结构 ， 它 们 的 几何 形状 、 约 束 条 件 及 作用 的 载荷 都 对 称 于 某 一 固定 轴 ， 


我 们 把 它 称 为 对 称 轴 ， 则 在 载荷 作用 下 结构 所 产生 的 位 移 、 应 变 和 应 力也 对 称 于 该 轴 ， 这 
类 问题 称 为 轴 对 称 问题 . 若 按 空间 问题 对 其 进行 分 析 ， 往 往 需 要 划分 很 多 单元 ， 因 此 未 知 
量 庞 大 ， 而 利用 问题 的 轴 对 称 特 点 ， 则 可 将 其 转化 为 平面 问题 求解 . 图 6.7 为 烟 向 柱 坐 标 


剖面 单元 离散 示意 图 


Ж 


о 


图 6.7 烟 向 柱 坐 标 剖 面 单元 离散 示意 图 
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在 轴 对 称 问题 中 ， 通 常 采用 圆柱 坐标 (x, Ө, z). 以 对 称 轴 作 为 z 轴 ， 所 有 应 力 、 应 变 和 
位 移 都 与 9 方向 无 关 ， 只 是 > Az 的 函数 ， 任 一 点 的 位 移 只 有 两 个 方向 的 分 量 ， 即 沿 r 方 
向 的 径 向 位 移 w 和 沿 z 方 向 的 轴 向 位 移 w. 由 于 轴 对 称 ，8 方 向 的 位 移 v 等 于 零 ， 因 此 轴 
对 称 问题 是 二 维 问题 . 

若 几 何 形状 轴 对 称 ， 载 荷 不 是 轴 对 称 ， 则 可 以 将 载荷 在 6 方向 展开 成 傅 里 叶 级 数 ， 利 
用 物体 的 对 称 性 ， 可 使 问题 的 求解 简化 . 

本 节 主要 以 三 节点 三 角形 环 状 单元 为 例 进行 讨论 . 这 种 单元 适应 性 好 、 计 算 简单 ， 是 
一 种 常用 的 最 简单 的 单元 ， 其 他 单元 有 限 元 格式 的 建立 ， 途 径 是 一 样 的 . 

1. 位 移 函 数 


如 图 6.8 所 示 ， 三 角形 环 单元 的 单元 位 移 场 由 前 面 所 学 内 容 可 知 


图 6.8 三 角形 环 单元 


u=[u w] =[NL NL Na,]ë (6-96) 
其 中 
м (a +hr+ez)=L, (ЬЕ) CL AERA) 
(是 三 角形 环 状 单元 截面 积 的 2 倍 ) 
а=та-һл, һ=т,-щ› «--(rn-n) 
2. 应 变 和 矩阵 和 应 力矩 阵 


1) 应 变 和 矩阵 
在 柱 坐标 下 弹性 力学 的 几何 方程 为 
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ди 9 
аг: а 29 
^ ow о 2 
ca |. а: |“ - 
£r Ww s M (6-97) 
sJ lz a| |o: ar 
^ l Ó 
r 
将 位 移 函 数 式 (6-96) 代 入 ， 得 
є=Вё' -[B, B, B,]& (6-98) 
其 中 
b 0 
1/0 c, 
12311 ь (i, j,k) 
f 0 


fatty + (i, jk) 
r r 


可 见 三 角形 环 单 元 与 平面 常 应 变 单元 是 不 同 的 ， 轴 对 称 三 角形 环 单元 的 应 变 矩阵 现在 
不 是 常数 矩阵 , 


2) 应 力矩 阵 
单元 应 力 可 用 应 变 代 入 弹性 关系 得 到 
о, 
о= - =De= DBS = Só =[S, s, s,]# (6-99) 
о, 
AP, MEER D A 
hl 46 
1-v 1-v 
v 
Dep пух 9 
(1+v)(1-2v) 对 1 0 
1-2v 
L 2(1-v) 
应 力矩 阵 8 dT S, A 
[tas Ас, 
.  Eü-v» |4(8+f) с » 
Sa-a) 4 4&| 629 


Ab*f, Ac 
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3. 单元 刚度 矩阵 和 等 效 节点 载荷 
1) 单元 刚度 矩阵 
在 轴 对 称 的 情况 下 ， 单 元 刚度 矩阵 为 
K= fff. B' DBrd@draz = 2л | Í, 8 DBrardz (6-100) 
为 了 简化 计算 和 消除 在 对 称 轴 上 x =0 所 引起 的 麻烦 ， 把 单元 中 随 点 变化 的 x 和 z 用 单 
元 截面 形 心 处 的 坐标 和 三 来 近似 ， 即 
(CE +2), zeif-l(nenea) (6-101) 
则 大 近似 为 
V Fatty ES (ijk) (6-102) 
Ld r 
从 而 单元 刚度 矩阵 的 显 式 为 


(6-103) 


2 А» 


K, K, K, 
K, K, Ky 


К° = 2nrB' РВА n K, K 


其 中 每 一 子 块 为 
-owB'Dp4- TEC) [K K, 
K, 220788 Ao EK, "i 
其 中 
K, =b,b, + f, f, + A (b, f, fb.) Acc, 
K, = Ac, (b, + /,)+ Abo, 
K, = Ac, (b, + f,)+ cb, 
K, =с,с, + Abb, 
2) 等 效 节点 载荷 
现在 的 等 效 节点 载荷 是 由 作用 在 单元 面 上 的 体积 力 、 分 布 面 力 等 引起 的 ， 对 于 轴 对 称 
问题 为 
F; =27 JN F.rdl 2n [N' F,rda 


6.3 ”应 用 问题 与 MATLAB 程序 


СИ 6.1】 如 图 6.9 所 示 为 受 轴 向 载荷 作用 的 板结 构 ， 其 弹性 模 量 为 6.9x10"Pa , 
泊 松 比 为 03 ， 质 量 密度 为 2700kg/m; ， 单 元 厚度 为 0.001m . 应 用 MATLAB 程序 求解 结 


构 在 静 载 荷 作用 下 的 单元 应 力 、 节 点 位 移 和 前 10 阶 固有 频率 . 
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图 6.9 受 轴 向 载荷 的 板结 构 
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varargout=LineartriElement1(varargin) 一 一 计算 线性 三 角形 单元 的 质量 矩阵 和 刚度 矩阵 . 


м X rin v: 


Example 6.1 
Dynamic characterisitic analysis and static analysis of the 
plate for plane stress analysis. 


* 
% 
s 
+ 
% Variable descriptions 
% dk = element stiffness matrix 
+ 
+ 
* 
` 
* 


dm = element mass matrix 

k = system stiffness matrix 

m = system mass matrix 

gcoord = coordinate values of each node 
nodes nodal connectivity of each element 


Element_number=100; % number of elements 
No_nel % number of nodes per element 
No_dof=2; * number of dofs per node 

Node number-66; $ total number of nodes in system 
Prop(1)=6.9e10; % elastic modulus 

Prop(2 33 % Poisson's ratio 

Prop(3)-2700; $ Mass density 

t-0.001; $ Thickness 

$- 


% Input data for nodal coordinate values 
% gcoord(i,j) where i-> node no. and j-> x or y 


for loopi=1:Node_number 
if rem(loopi,11)~=0 
gcoord (loopi, 1) =(loopi-floor(loopi/11)*11-1)*0.02; 
gcoord (loopi, 2) =floor(loopi/i1)*0.02; 
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else 


gcoord(loopi,1)=0.2; 
gcoord(loopi,2)-(floor(1oopi/11)-1)*0.02; 
end 


% Input data for nodal connectivity for each element 
* nodes(i,j) where i-> element no. and j-> connected nodes 


No. element-0; 
for loopi-1:10 
for loopj=1:10 
No_element =No_element+1; 
if rem(No_element,2) 
nodes (No element, 1)=(No_element +1) /2+floor ( (loopi-1) /2); 
nodes (No_element , 2) = (No_element+1) /2+1+£loor ( (loopi-1) /2) ; 
nodes (No, element, 3) = (No_element +1) /2+11+floor ((loopi-1) /2); 
else і 
nodes (No_element , 1) (No, element«2) /2+f1oor ( (1oopi-1) /2) ; 
nodes (No, element, 2) = (No_element +2) /2+11+floor ((loopi-1) /2) ; 
nodes (No_element , 3) = (No_element +2) /2+10+floor ( (loopi-1) /2) ; 
end 


ed(1:Node number,1:2)-1; *element, displacement 
constraint-[1,1;1,2;12,1;12,2;23,1;23,2;34,1;34,2:45,1;45,2:56,1;56,2]; 


for loopi-1:length(constraint); 
ed (constraint (loopi,1),constraint (1oopi,2))-0; 
end 
dof=0; 
for loopi=1:Node_number 
:2 


for loopj= 


if ed(loopi,loopj)--0 
dof=dof+1; 
ed(loopi, loopj) =dof; 


s 


eros (dof, dof); % system stiffness matrix 
m=zeros (dof, dof) ; % system mass matrix 
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f=zeros (Node_number*No_dof,1); & system force vector 

disp=zeros (dof ,1); % system displacement vector 
eldisp-zeros(No nel*No dof,1); $ element diaplacement vector 
stress-zeros(Element number,3); % matrix containing stress components 
strain-zeros(Element number,3); $ matrix containing strain components 
kinmtx-zeros(3,No nel*No dof); % kinematic matrix 

matmtrx=zeros (3,3); % constitutive matrix 

e2s(1:6)=0; % index of transform the element displament number to 
structural 


£(21)25000; 
£(131)-5000; 


$ loop for the total number of 


elements 
for zi-1:3 
e2s ((zi-1)*2«1)-ed (nodes (100рі,21),1); 
e2s ( (zi-1)*242) -ed (nodes (100pi,2i),2); 
end 
for loopj=1:3 
xycoord (100pj , 1) =gcoord (nodes (100pi,100pj),1); 
xycoord (100pj, 2) -gcoord (nodes (1loopi, loopj) ,2) ; 


end 
ioptzl; % plane stress analysis 
$ iopt-2; $ plane strain analysis 


P $ Consistent mass matrix 
ineartriElementl(Prop,No nel,No, dof,xycoord,t,iopt,Opt mass); 


:6 

if (e2s (jx) *e2s (jy) ~=0) 
k(e2s (jx) ,e2s (jy) )=k(e2s (jx) ,e2s (jy) ) dk (jx, jy); 
m(e2s (x) , e2s (jy) ) -m(e2s (jx) ,e2s (jy) ) eán( 3x, jy) ; 


end 


Number_con=-1; % apply boundary conditions 
for loop: ength (constraint) 
Number con- Number con«1; 
f((constraint(loopi,1)-1)*No dof«constraint (loopi,2)-Number con)-[]; 
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епа 

disp=k\f; %solve the matrix equation 
` 
$ element stress and strain computation 


:Element number 

t3 $ extract system dofs for the element 
e2s((zi-1) *2+1) =ed (nodes (1oopi,zi),1); 
e2s( (zi-1)*2«2)-ed (nodes (loopi,zi),2); 

end 


for loopj=1:3 
xycoord (loopj, 1) =gcoord (nodes (loopi, loopj) , 1); 
xycoord (100pj, 2) =gcoord (nodes (1oopi, loopj) ,2); 
end 
for loopk=1:No_nel*No_dof % extract element displacement vector 
if e2s(loopk) 
eldisp(1oopk)-0; 
else 
eldisp (10орк) =disp(e2s (10орк)); 
end 


end 


x1-xycoord(1,1) ;yl=xycoord (1,2); 
x2=xycoord (2,1) ;y2=xycoord (2,2); 
x3=xycoord (3,1) ;y3=xycoord (3,2); 
area-0.5*(xl*y2«x2*y3«x3*yl-xl*y3-x2*y1-x3*y2); % area of triangule 
dhdx-(1/(2*area))*[(y2-y3) (y3-yl) (yl-y2)]; $ derivatives w.r.t x 
dhdy-(1/(2*area))*[(Gx3-x2) (х1-х3) (x2-x1)]; $ derivatives w.r.t y 
for i-l:No nel % kinematic matrix 
i-1)*241; 
1+1; 

kinmtx(1,i1)-dhádx(i); 

kinmtx (2,12) =dhdy (i); 

kinmtx (3,11) =dhdy (1); 

kinmtx (3,12) =<dhdx (i); 
end 
matmtrx-Prop(1)/(1-Prop(2)*Prop(2))* 

[1 Prop(2) 0; 


Prop(2) 10; ... 
0 0 (1-Ргор(2))/2]; 
estrain-kinmtx*eldisp; $ compute strains 
estress-matmtrx*estrain ; $ compute stresses 
strain(loopi,i)-estrain(i); % store for each element 
stress(loopi,i)-estress(i); $ store for each element 


end 
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displ=disp; 
while flag 
for loopi-1:length(constraint) 
ісег=ісег+1; 
for loopj=1: (dof+iter) 
if loopj<( (constraint (loopi,1)-1) *No_dof+constraint (loopi, 2) ) 
dispt (loopj)=displ (loopj) ; 
else 
dispt (100pj«1)-displ(1loopj);" 
end 


end 


dispt ( (constraint (loopi,1)-1)*No dof«constraint (loopi,2))-0; 
displ-dispt; 


end 
if length(displ)»-Node number*No dof 
flag-0; 


pz10; 

epsilon=le-5; 
[v,d)-Ssiter(k,m,p,epsilon); 
d=sqrt (d) / (2*pi 
$- 


% print fem solutions 


&-- 

num=1:1:p; 

frequency=(num' 4] % print frequency 

+ 

num=1:1:Node_number*No_dof; 

displace=(num' dispt'] % print nodal displacements 
% 


num-1:Element number; 
stresses-[num' stress] $ print stresses 


»» format long 


frequency 
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1.0e«004 .* 
-00010000000000 
-00020000000000 
-00030000000000 
-00040000000000 
-00050000000000 
-00060000000000 
00070000000000 
«00080000000000 
-00090000000000 
0.00100000000000 
displace = 
1.0e+002 * 
0.01000000000000 
0.02000000000000 
0.03000000000000 
0.04000000000000 


ооооооооо 


1.29000000000000 
1.30000000000000 
1.31000000000000 
1.32000000000000 
stresses = 

1.0e+008 * 
0.00000001000000 
0.00000002000000 
0.00000003000000 
0.00000004000000 


0.00000097000000 
0.00000098000000 
0.00000099000000 
0.00000100000000 


function varargout: 
з---- 
% Purpos 


0.18604065704136 
0.63693976247305 
0.70795736724809 
1.49743000911713 
1.87501877728104 
1.88424652438432 
2.42279455024536 
2.54380218643713 
2.69029118728467 
2.71490380740973 


0 

0 
0.00000034291373 
0.00000015963419 


0.00000327251912 
-0.00000032693461 
0.00000380946666 
-0.00000054632754 


1.30005754768989 
1.12293677324908 
1.17720848679054 
1.17304599196842 


1.17311067119685 
1.52792274071915 


0.39001726430697 
0.07616439071518 
0.09244590477762 
0.02612618266368 


0.00959355874785 
0.07363651493596 


1.14515705809605 -0.04119318985097 
1.78924143352395 -0.21075856647605 


ineartriElement1 (varargin) 


% This function is used to calculate element stiffness 
% of linear triangular element 


% Synopsis: 


we de юе ® de de 


Input parameters 
Prop(1)- elastic modulus 
Prop(2)- Poisson's ratio 
Prop(3)- mass density 


0.21182228466200 
0.07963707173014 
0.04321198916920 
0.02423600768642 


0.06554658062287 
0.17831524139106 
0.08300345141375 
0.21075856647604 


and mass matrixes 


k-LineartriElementl(Prop, No_nel,No_dof, xycoord, thickness, iopt) 
[k,m]-LineartriElementl(Prop, No nel,No dof,xycoord, thickness, iopt ,Opt_mass) 
Variable Description: 
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* No nel - number of nodes per element 
% No_dof - number of dofs рег пойе 
хусоога -coord values of nodes 

+ iopt=1 - plane stress analysis 
iopt=2 - plane strain analysis 

+ thickness - element thickness 

$ Opt mass -1 - consistent mass matrix 
+ 

+ 

% 

% 

% 


Opt_mass= 2 - lumped mass matrix 
Output parameters 
k - element stiffness matrix 


m - element mass matrix 
Author: Dr.XU Bin, Time:2006-12-08 


if nargin«6 & nargin»7 
error('Incorrect number of input arguments') 
else 
switch nargin 
case 6 
Propevarargin(1); 
No. nelsvarargin(2); 
No dof-varargin(3); 
xycoord=varargin(4); 
thickness=varargin(5}; 


iopt=varargin{6}; 

k=zeros (No nel*No dof); 

kinmtx-zeros(3,No nel*No dof); H 
matmtrx=zeros (3,3); 


if iopt-- $ constitutive matrix for plane stress 
matmtrx-Prop(1)/(1-Prop(2)*Prop(2))* 
[1 Prop(2) 0; ... 
Prop(2) 1 0; 
0 0 (1-Prop(2))/2]; 


else 
matmtrx-Prop(1)/((1«Prop(2))*(1-2*Prop(2)))* ... 
$ constitutive matrix for plane strain 
[1-Prop(2) Prop(2) 0; 
Prop(2) 1-Prop(2) 0; 
0 0 (1-2*Prop(2))/21; 


xlexycoord(1,1);ylexycoord(1,2); 
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x2-xycoord(2,1);y2-xycoord(2,2); 
x3-xycoord(3,1 =xycoord (3,2); 
агеа=0.5* (х1*у2+х2*у3+х3*у1-х1*у3-х2*у1-х3*у2); % area of triangule 
dhdx-(1/(2*area))*[(y2-y3) (у3-у1) (у1-у2)]; % derivatives w.r.t x 
dhdy-(1/(2*area))*[(x3-x2) (x1-x3) (x2-x1)]; % derivatives w.r.t y 


for No nel 
ils(i-1)*2+1; 
12=11+1; 


kinmtx(1,i1)=dhdx (i); 
kinmtx (2,12) =dhdy (i); 
kinmtx(3,i1) =dhdy (i); 
kinmtx (3,12) =dhdx (i) ; 


case 7 
Prop-varargin(1); 
No. nelsvarargin(2); 
No. dof-varargin(3); 
xycoord-varargin(4); 
thickness-varargin(5); 
iopt-varargin(6); 
Opt mass-varargin(7); 
k=zeros (No nel*No dof); 
m-zeros (No nel*No. доѓ); 
kinmtx=zeros (3,No nel*No dof); 
eros(3,3); 


if iopt--1 % constitutive matrix for plane stress 
matmtrx-Prop(1)/(1-Prop(2)*Prop(2))* 
[1 Prop(2) 0; ...Prop(2) 


Prop(2) 1 0; ... 
0 0 (1-Ргор(2))/2]; 
else 
matmtrx-Prop(1)/((i«Prop(2))*(1-2*Prop(2)))* 
$ constitutive matrix for plane strain 
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[1-Prop(2) Prop(2) 0; ... 
Prop(2) i-Prop(2) 0; ... 
0 0 (1-2*Prop(2))/2]; 


хусоогӣ (1,1) ;у1=хусоогӣ (1,2); 

х2=хусоога (2,1) ;у2=хусоога (2,2); 
х3=хусоогӣ (3,1) ;уЗ=хусоогӣ (3,2); 

area-0.5* (x1*y2«x2*y3«x3*yl-x1*y3-x2*y1-x3*y2); % area of triangule 
dhdx-(1/(2*area))*[(y2-y3) (у3-у1) (yl-y2)]; % derivatives w.r.t x 
dhdy-(1/(2*area))*[(x3-x2) (х1-х3) (x2-x1)]; $ derivatives w.r.t y 
for No. nel 

11=(1-1)*2+1; 

12=11+1; 

kinmtx(1,il)-dhdx(i); 

kinmtx(2,i2)-dhdy(i); 

kinmtx(3,i1)-dhdy(i); 

kinmtx(3,i2)-dhdx(i); 


if Opt_mass==1 $ consistent mass matrix 
m=Prop(3) *thickness*area/12*[2 0 1 0 1 0; 


else 


0 


orom 


20101; 
1 0; 
0 1; 
20; ... 
с 2); 


"ono 
оном 


% lumped mass matrix 


mzProp(3)*thickness*area/3*eye(6); 


varargout {1} 


varargout {2}=m; 


end 
end 
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【 例 62] 如 图 6.10 所 示 为 平面 应 力 板 ， 其 弹性 模 量 为 2.1xl10"Pa ， 泊 松 比 为 
0.3， 质 量 密度 为 7860kg/ms ， 单 元 厚度 为 0.003m. 在 节点 6 处 加 一 竖 直 向 下 、 大 小 为 


2000N 的 阶 跃 力 ， 则 该 点 竖 直 方向 阶 跃 响应 如 图 6.11 Bro. 


6.11 节点 6 竖 直 方向 的 阶 跃 响 应 


varargout=BilinearElementl(varargin) 一 一 计算 双 线 性 三 角形 单元 的 质量 矩阵 和 刚度 
ЖЕ. 
M 文 件 如 下 : 
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% Example 6.2 
% Dynamic resposne analysis of the plate for plane stress 
% analysis. 

+ 

% Variable descriptions 

% dk = element stiffness matrix 

% dm = element mass matrix 

% k= system stiffness matrix 

% m = system mass matrix 

$ — gcoord = coordinate values of each node 

% nodes = nodal connectivity of each element 


% Input data for control paramters 


Element, number-100; % number of elements 
No, nel-4; % number of nodes per element 

No. dof-2; $ number of dofs per node 

Node, number-121; $ total number of nodes in system 
Prop(1)-2.1e11; * elastic modulus 

Prop(2)-0.3; % Poisson's ratio 

Prop(3)-7860; % Mass density 

t-0.003; $ Thickness 

С РАНЕЕ 542i. illel nof A LT ek ea, 


% Input data for nodal coordinate values 
% gcoord(i,j) where i-» node no. and j-» x or y 
% 


for loopi=1:Node_number 
if rem(loopi,11)~=0 


gceoord (loopi,1)=(loopi-floor (loopi/11)*11-1)*0.02; 
gcoord(loopi, 2) =#10ог (1оорі/11) *0.02; 
else 
gcoord(loopi,1)=0.2; 
gcoord (loopi, 2) = (floor (loopi/11)-1)*0.02; 
end 


$ Input data for nodal connectivity for each element 
% nodes(i,j) where i-» element no. and j-» connected nodes 


No. element-0; 


0 


for loopi- 
for loopj=1:10 
No element-No elementi; 


nodes (No element,1)-(loopi-1)*11«1oopj; 
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nodes (No, element, 2) = (loopi-1)*11+loopj+1; 
nodes (No. element, 3) = (100рі-1) *11+100рј+12; 
nodes (No_element , 4) = (100рі-1) *11+100рј+11; 


ed(1:Node number,1:2)-1; $element, displacement 
constraint-[1,1;1,2;11,2]; 


for loopi-1:length(constraint); 
ed(constraint (loopi,1),constraint (loopi,2))= 
end 
dof=0; 
for loopi=1:Node_number 
for loopj=1:2 
if ed(loopi, loopj)~=0 
dof=dof+1; 
ed (1oopi,1oopj)-dof; 


end 


$ 


eros(dof,dof); % system stiffness matrix 
m=zeros (dof, dof) ; % system mass matrix 


е2в(1:8) % index of transform the element displament number to 
structural 

| EE ST EEEE E T E EE 

% Compute system stiffness and mass matrices 

Гр ne —Á—— 


for loopi=1:Element_number % loop for the total number of elements 

for zi-1:4 
е28((21-1) *2+1) sed (nodes (loopi,zi),1); 
e2s((zi-1)*2+2) =ed (nodes (loopi,zi),2); 

end 

for loopj=1:4 

xycoord (loopj, 1) =gcoord (nodes (loopi, loopj) ,1); 
xycoord (1оорј, 2) =gcoord (nodes (loopi, loopj) ,2) ; 


% plane stress analysis 
% plane strain analysis 

% Consistent mass matrix 

Так, dm] =BilinearElement1 (Prop, No nel,No dof,xycoord,t,iopt,Opt. mass); 
for jx=1:8 
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for jy=1:8 
if (e2s (јх) *e2s (jy) --0) 
k(e2s (3x) ,e2s (jy) )=k(e2s (jx) , e25 (jy) ) «dk (jx, jy); 
m(e2s (3x) ,e2s (jy) ) =m(e2s (jx) ,e2s (jy) ) sàn (3x, jy); 
end 
end 


Га 
A-[zeros(dof) eye(dof); 
Bzzeros(2*dof,1); 


inv(m)*k zeros(dof)]; % state-space form 


В(10) =-2000; 
Czeye(2*dof); 
D=0; 


G=ss (A,B,C,D); 
t=0:le-8:4e-6 
ly, t,x] =step(G) ; 
plot (t,x(:,10)) 


$ Purpose: 
$ This function is used to calculate element stiffness and mass matrixes 


% of bilinear triangular element 


% Synopsis: 
* k=BilinearElement11(Prop, No nel,No, dof,gcoord, thickness, iopt) 

+ [k,m]-BilinearElementl(Prop, No nel,No dof,gcoord, thickness, iopt,Opt, mass) 
% Variable Description: 

% Input parameters 

` Prop(1)- elastic modulus 

+ Prop(2)- Poisson's ratio 

+ Prop(3)- mass density 

+ No_nel - number of nodes per element 

E No dof - number of dofs per node 

` xycoord -coord values of nodes 

E iopt-1 - plane stress analysis 

* iopt=2 - plane strain analysis 

+ thickness - element thickness 

` Opt_mass =1 - consistent mass matrix 

+ Opt_mass= 2 - lumped mass matrix 


242 


wo» 


MATLAB 有 限 元 结构 动力 学 分 析 与 工程 应 用 


Output parameters 
k - element stiffness matrix 
m - element mass matrix 


Author: Dr.XU Bin, Time:2006-12-08 


if nargin«6 |nargin>7 


error('Incorrect number of input arguments') 
else 
switch nargin 


case 6 

Prop-varargin(1); 

No, nel-varargin(2); 

No. dof-varargin(3); 

xycoord=varargin(4}; 

thickness=varargin{5}; 

iopt-varargin(6); 
% 2*2 Gauss-Legendre quadrature 
% number of sampling points per element 
k=zeros (No_nel*No_dof) ; 
kinmtx=zeros (3,No_nel*No_dof) ; 
matmtrx=zeros (3,3); 


$- 


% constitutive matrix for plane stress 
matmtrx-Prop(1)/(1-Prop(2)*Prop(2))* ... 
[1 Prop(2) 0; 
Prop(2) 10; ... 
0 0 (1-Prop(2))/2]; 
else 
matmtrx-Prop(1)/((1«Prop(2))*(1-2*Prop(2)))* ... 
% constitutive matrix for plane strain 
{1-Prop(2) Prop(2) 0; ... 
Prop(2) 1-Prop(2) 0; ... 
0 0 (1-2*Prop(2))/2]; 


end 


$ numerical integratrion for element stiffness matrix 


point(1)2-0.577350269189626; $ Sampling pointrs & weights 


point(2)--point(1); 

weight (1)=1.0; 

weight (2) =weight (1); 

for i=1:No_nel 
xcoord(i)-xycoord(i,1); $ extract x value of the node 
ycoord(i)sxycoord(i,2); $ extract y value of the node 


end 
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for intx=1:nglx 
x=point (intx) ; % sampling point in x-axis 
wtx-weight (intx) ; % weight in x-axis 
for inty=1:ngly 
y=point (inty) ; % sampling point in y-axis 
wty-weight (inty) ; % weight in y-axis 


dhdr (1) =-0.25*(1-y); 

% Compute the derivatives of shape functions 
dhdr (2) =0.25* (1-у); % ас sampling point 
dhdr (3) =0.25* (1«y) ; 

dhdr (4) =-0.25* (1+у); 

dhds (1) =-0.25* (1-х); 

dhds (2) =-0.25* (1«x); 

dhds (3) =0.25* (1«x) ; 

dhds (4) =0.25* (1-х); 


jacob=zeros (2,2); 

for i=1:No_nel % compute Jacobian 
jacob(1,1)-jacob(1,1) «dhdr (i) *xcoord (i); 
jacob(1,2)-jacob(1,2) «dhdr (i) *ycoord(i); 
jacob(2,1 jacob (2,1) «dhds (i) *xcoord (i); 
jacob(2,2) =јасор (2,2) «dhds (i) *ycoord (i); 

end 

det jacob=det (jacob) ; % determinant of Jacobian 

invjacob=inv (jacob); % inverse of Jacobian matrix 

for i-1: 


dhdy (i) =іпујасоЬ (2,1) *аһаг (i) +іпујасоЬ (2,2) *dhds (i); 

end 

for i: No_nel 
il-(i-1)*241; 
12=11+1; 
kinmtx(1,i1)-dhdx(i 
kinmtx(2,i2) =dhdy (i); 
kinmtx (3,11) =dhdy (i); 
kinmtx(3,i2) =dhdx (і); 

end 


k=k+kinmtx' *matmtrx*kinmtx*wtx*wty*det jacob*thickness; 
end 


varargout {1 


case 7 
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Prop-varargin(1); 

No. nel-varargin(2); 

No. dof-varargin(3); 

xycoord-varargin(4); 

thickness-varargin(5); 

iopt-varargin(6); 

Opt. mass-varargin(7); 

; ngly-2; $ 2*2 Gauss-Legendre quadrature 


nglx 
nglxy-nglx*ngly; % number of sampling points per element 
k-zeros (No. nel*No dof); 
m-zeros (No. nel*No dof); 


kinmtx-zeros (3,No nel*No dof); 
matmtrx=zeros (3,3); 


$ constitutive matrix for plane stress 
matmtrx-Prop(1)/(1-Prop(2)*Prop(2))* ... 

(1 Prop(2) 0; ...Prop(2) 

Prop(2) 10; ... 

0 0 (1-Ргор(2))/2]; 


else 
matmtrx-Prop(1)/((1«Prop(2))* (1-2*Prop(2)))* 
% constitutive matrix for plane strain 
(1-Ргор(2) Prop(2) 0; ... 
Prop(2) 1-Prop(2) 0; . 
0 0 (1-2*Prop(2))/2]; 


point (1 0.577350269189626; % Sampling pointrs & weights 
point (2)=-point (1); 

weight (1 .0; 

weight (2)-weight(1); 


for 1=1:Мо_пе1 


xcoord(i)-xycoord(i,1); $ extract x value of the node 
усоога (1) =хусоога(і,2); % extract у value of the node 
end 
for intx=1:nglx 
x=point (intx); % sampling point in x-axis 
wtx-weight (intx) ; % weight in x-axis 
for inty-l:ngly 
y=point (inty) ; % sampling point in y-axis 


wty-weight (inty); $ weight in y-axis 
dhdr(1)=-0.25*(1-y); 
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% Compute the derivatives of shape functions 
dhár(2)-0.25* (1-y); % at sampling point 
аһаг (3) =0.25* (1«y); 
dhdr (4)=-0.25* (1+y); 
dhds (1) =-0.25* (1-x); 
dhds (2)--0.25* (1«x) ; 
dhás (3)-0.25* (14x) ; 
dhds (4) =0.25* (1-х); 


for $ compute Jacobian 
acob(1,1) «dhdr (i) *xcoord (i); 


acob(1,2)+dhdr (i) *усоога (і 


jacob(1,2 


jacob(2,1 acob(2,1)+dhds (i) *xcoord(i); 
jacob (2,2) =јасоЬ (2,2) +аһаз (i) *ycoord(i); 
епа 
det jacob=det (jacob) ; % determinant of Jacobian 
invjacob=inv (jacob); % inverse of Jacobian matrix 
for i=1:No_nel 
dhdx (i) =invjacob(1,1) *dhdr(i)+invjacob(1,2) *dhds (i); 


dhdy (i) =invjacob(2,1) *dhdr(i)+invjacob(2,2)*dhds (i) ; 


end 

for i=1:No_nel 
il-(i-1)*241; 
12=11+1; 


Кіптех (1,11) =dhdx (i) ; 

kinmtx (2,12) =dhdy (i); 

kinmtx (3,11) =dhdy (i); 

kinmtx (3, i2)=dhdx (i) ; 
end 


k=k+kinmtx' *matmtrx*kinmtx*wtx*wty *det jacob; 
end 


area=0.5* ( (xcoord (1) *ycoord (2) +xcoord (2) *ycoord (3) +xcoord (3) *ycoord (1) - 


xcoord (1) *ycoord (3) -xcoord (2) *ycoord(1)-xcoord(3) *ycoord(2))+ ... 
(xcoord (1) *ycoord (3) +xcoord (3) *ycoord (4) +xcoord (4) *ycoord (1) - 
xcoord (1) *ycoord (4) -xcoord (3) *ycoord(1) -xcoord (4) *ycoord(3))); 
if Opt mass-- $ consistent mass matrix 
m-Prop(3)*thickness*area/36*[4 02 01 0 2 0; ... 
04020102;... 
20402010; 
02040201; 
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10204020; ... 
0102040 358 
20102040; ... 
02010204); 
else $ lumped mass matrix 
m=Prop (3) *thickness*area/4*eye(8) ; 


varargout {1}=k; 
varargout (2) = 


епа 
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在 工程 实际 中 有 大 量 的 板 壳 结 构 ， 这 类 结构 的 特点 是 其 在 一 个 方向 上 的 尺度 比 在 其 他 
两 个 方向 上 的 尺度 相对 来 说 小 很 多 . 针对 这 个 特点 ， 可 以 将 此 类 结构 简化 为 二 维 问题 ， 这 
样 可 以 在 保持 足够 精度 的 同时 ， 有 效 降低 该 类 问题 的 求解 难度 . 一 般 的 板 壳 结构 在 经 过 简 
化 和 空间 离散 化 之 后 ， 在 局 部 都 可 以 认为 是 薄板 弯曲 问题 . 因此 板结 构 单元 一 般 都 是 基于 
薄板 弯曲 理论 建立 起 来 的 . 


7.1 经 典 薄板 弯曲 理论 


如 第 1 章 所 述 ， 为 了 完成 式 (1-5) 中 的 积分 ， 首 先 需要 将 结构 在 空间 上 离散 化 ， 然 后 给 
出 每 一 单元 内 的 位 移 近似 表达 式 . 在 寻找 单元 内 位 移 近似 表达 式 的 时 候 ， 一 般 都 根据 单元 
的 受 力 特点 和 其 本 身 的 几何 特性 ， 对 单元 内 的 位 移 场 做 出 一 定 的 假设 来 将 问题 进行 简化 ， 
这 样 能 够 较 容 易 地 得 到 合理 的 位 移 近似 表达 式 . 因此 下 面 在 介绍 建立 板 单元 之 前 首先 介绍 
经 典 薄 板 弯 曲 理论 . 

在 研究 工程 中 常见 的 沙 板 弯曲 问题 时 ， 可 以 根据 其 几何 尺寸 特点 ， 采 取 以 下 假定 : 

(1) 可 以 忽略 板 厚度 方向 的 正 应 力 ， 并 假定 薄板 的 厚度 没有 变化 . 

(2) 薄板 的 法 线 ， 在 产生 弯曲 后 ， 仍 然 保 持 为 薄板 弹性 曲面 的 法 线 . 

(3) 薄板 中 面 上 的 各 点 ， 没 有 平行 于 中 面 的 位 移 . 

基于 以 上 假设 ， 可 以 推 知 浒 板 内 的 各 应 力 分 量 和 应 变 分 量 都 可 以 用 板 的 挠 度 w 来 表 
a. 如 图 7.1 所 示 ， 取 板 的 中 面 为 xy 平面 ，z 轴 垂 直 于 中 面 . 


hm 
<= 


x 


图 7.1 薄板 
dili) A e, -%-0, 这 样 在 单元 中 有 w=w(x,y) ， 即 找 度 w 仅 是 x 和 y 的 函 


Bo Gz EK. 
ðv ow д» Ou 


由 假设 (2) 可 知 板 内 不 存在 前 应 变 ， My = yta br. tur 可 以 从 中 
推 得 

av __Ow ди, д» - 

m ay Eas (7-1) 


248 MATLAB 有 限 元 结构 动力 学 分 析 与 工程 应 用 
对 式 (7-1) 进 行 积分 ， 并 注意 到 由 于 w 与 = 无 关 ， яд RD ёз; ж, 因此 可 得 


zog 9 =-;9# - 
v= zay Alyn zy thy) (7-2) 


RP, f(xy) AL (xy) WRF xA y HERR. 
HBG) и, „= v... =0, БИЖНЗ(7-2уп[ f (х,у) = 大 (xy)=0， 这 样式 (7.2) 


可 以 简化 为 


v=- ua (733) 
DL EMO ПИШ, ЗЕРНЕ FUTT 3 个 应 变 分 量 ee, Ay, KAF 
кый „ди 
= ax De 
е, R95 (7-4) 
RES 
"7$ $*» ду 


在 式 (7-4) 中 仍 含有 z， 可 以 通过 引入 广义 应 变 和 广义 应 力 的 概念 来 得 到 更 简洁 的 形式 . 
对 于 各 向 同性 材料 ， 在 不 考虑 G, 的 平面 情况 下 有 如 下 应 力 应 变 关系 


— e, + ue,) 
c, - — (ue, +e,) (7-5) 
1-4 
СЕ 
ғи)” 
将 式 (7-4) 代 入 式 (7-5) 得 
Е w, dw 
a tD 
=E yO , 
gs i aot ay (7-6) 
тш E A 
Э, 2(1+ и) Әхду 
上 述 应 力 将 在 板 内 分 别 合成 为 薄板 内 力 
= [Uz = E (дю, a. 
m=] 7785 m L3 
Ux EE я д» д» 
A н ma “зе jx) S 
tz E? aw 


duc Sow 
л) ?7 7 yeu) Say 
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将 式 (7-7) 写 成 矩阵 形式 为 
-Fw д dw 
aè ^? E 
m, 3 2 2 3 |L A 0 2 
au mE: pow owl Et Mr Q _ 9° w (7-8) 
"7y*[ma-4.)| “ae | ma-2) i ay 
m =H 
hy Pw 050: 2274 2i 
0-б 212 
p Әхду 
式 (7-8) 可 以 简写 为 
m= Dx (7-9) 
式 (7-9) 即 为 受 弯 浒 板 中 的 广义 应 力 应 变 关系 
其 中 
aw 
Es 
к= ES =Lw (7-10) 
aw 
Е, д.а 
Әхду 
EP 14 0 14 0 
t 
D= 一 一 一 一 一 1 0 |-D, 1 0 7-11 
rer Š u My (7-11) 
ovo" 424 о о 4 
2 2 
K 2 BP 
ҖФ, D ITE 
7.2 ”经典 板 弯曲 元 


在 基于 经 典 薄 板 弯曲 理论 的 单元 中 ， 每 个 节点 有 3 个 自由 度 : 挠 度 w、 法 线 绕 x 轴 的 


转动 8. 和 绕 y 轴 的 转动 6,. 即 
aw) (ән) |” 
网 tE) vi 


{a}= 


单元 节点 位 移 向 量 为 
а ={a,,4,,--,a,}" (7-13) 
HP, n 是 单元 节点 的 数目 . 
在 上 节 已 经 给 出 了 此 类 问题 下 广义 应 变 和 应 力 的 关系 ， 现 在 又 确定 了 单元 位 移 向 量 ， 
此 时 ， 为 完成 根据 相关 定义 求 出 单元 刚度 矩阵 和 质量 矩阵 等 的 工作 ， 只 需要 再 确定 形 函 数 
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即 可 . 依据 所 选单 元 节点 数目 选择 形 函数 的 问题 可 以 参阅 有 关 的 有 限 元 理论 著作 ， 此 处 不 
再 详 述 . 下 面 给 出 计算 四 节点 矩形 单元 和 三 节点 三 角形 单元 刚度 矩阵 和 质量 矩阵 的 例子 ， 
读者 可 以 依 此 思路 根据 有 关 的 有 限 元 理论 著作 中 给 出 的 各 种 节点 数目 情况 下 的 形 函 数 求 得 
其 相应 的 单元 刚度 矩阵 和 质量 矩阵 . 
7.2.1 四 节点 矩形 单元 

1. 单元 局 部 坐标 系 和 形 函 数 

图 7.2 所 示 为 四 节点 和 矩形 单元 . 


y 4 


he 


图 7.2 四 节点 矩形 单元 


如 图 7.2 所 示 的 等 厚度 矩形 单元 共有 4 个 节点 ,单元 宽度 为 a， 高 度 为 b. 在 单元 的 中 
As (х,у) 建立 局 部 坐标 系 


x=x,+aé 
с (9 
其 中 
"EE abt 
2 
7-15 
padre „„%+% de 
2 ES 
则 单元 内 任 一 点 的 挠 度 可 用 形 函 数 N,(x,y) 和 单元 节点 位 移 {a]} 表示 为 
w= (Ми, + Naps += DIN, ay} (7-16) 
其 中 
[N] N,N N] (7-17) 
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对 于 此 类 型 单元 ， 可 以 选用 下 面 的 形 函 数 


Nes D emo em т) 


N, = та my - m 


(7-18) 
N, = Lab + em -£) 
i=1,2,3,4 ` 
可 以 将 式 (7-16) 写 成 矩阵 形式 为 
w= Na* (7-19) 


采取 式 (7-18) 中 形 函 数 的 时 候 ， 相 邻 单元 之 间 法 向 导数 的 连续 性 要 求 一 般 不 能 得 到 满 
足 ， 因 此 此 类 单元 成 为 非 协调 单元 . 不 过 实际 计算 结果 表明 ， 当 单元 网 格 划分 逐步 密集 的 
时 候 ， 采 取 此 类 单元 的 计算 结果 还 是 能 够 收敛 于 正确 解答 的 . 


2. 单元 刚度 矩阵 
将 式 (7-19) 代 入 式 (7-10) 中 可 得 
x= Lw=LNa‘ = Ва“ (7-20) 
其 中 B 是 3x12 阶 和 矩阵 
QN ON, ƏN, PN, 
ax аг ax? ax 
ƏN ƏN, oN, aN, 
B= ; 7 ai = 7-21 
r э у ay du 
ON N, ÖN, Ә?М,, 
irm us Sind Жеў 


ЖЕҢИ HAE GR EP Ae X. K* = | в'рвау/, 求 出 单元 刚度 矩阵 . 对 于 此 处 
的 等 厚度 单元 ， 此 积分 结果 可 以 显 式 给 出 . 因为 该 矩阵 比较 兄长 ， 这 里 不 再 写 出 . 

3. 单元 质量 矩阵 

此 种 单元 的 集中 质量 矩阵 是 12 阶 的 对 角 和 矩阵 ， 由 于 可 以 略 去 转动 自由 度 上 的 质量 ， 
实际 上 在 矩阵 中 只 有 4 个 非 零 元 素 . 可 以 用 以 下 MATLAB 代码 给 出 该 矩阵 


m(1:12,1:12)=0; 
w=a*b*t* density; 
m(1,1)=w; 
m(4,4)=w; 
m(7,7)=w; 
m(10,10)=w; 


协调 质量 矩阵 需要 根据 M* = | олт мау 求 出 . 这 一 工作 可 以 使 用 MATLAB 的 符号 
运算 功能 来 完成 : 
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w=a*b*t* density; 
syms kx yt kxi yti real; 

ni-1/8*(1*«kx*kxi)*(l«yt*yti)* (2«kx*kxi«yt*yti-kx^2-yt^2); 
nix--1/8*b*yti* (1+kx*kxi) * (1+ус*усі) * (1-ус^2); 
niy=1/8*a*kxi* (1+kx*kxi) *(l+yt*yti) * (1-Кх^2); 
n(1)=subs(ni, (kxi,yti),(-1,-1)); 

n(2)=subs (nix, (kxi,yti),(-1,-1)); 

n(3)=subs (niy, (kxi,yti),(-1,-1)); 

n(4)-stbs (ni, (кхі,усі), (1,-1)); 

n(5)ssubs (nix, (kxi,yti),(1,-1)); 

n(6)-subs (niy, (kxi,yti), (1, -1)); 

n(7)=subs (ni, (kxi,yti), (1,1)); 

n(8) =subs (nix, (kxi,yti),(1,1)); 

n(9)-subs (niy, {kxi,yti},{1,1}); 

n(10)=subs (ni, (kxi,yti),(-1,1)); 
n(11)-subs (nix, (kxi,yti),(-1,1)); 

n(12)=subs (niy, (kxi,yti), (-1,1)); 

temp=n'*n; 

ml=int (temp,kx,-1,1); 

m=int (ml,yt,-1,1); 


m=m*w; 


m=double(m) ; 


在 上 述 代码 中 ， 因 为 在 积分 中 是 按照 长 宽厚 都 为 1 的 单元 来 计算 的 ， 所 以 在 代码 中 通 
过 对 结果 乘 以 a*b*t 以 使 其 符合 一 般 几 何 尺 寸 单元 . 


4. 单元 载荷 向 量 
当 此 类 单元 上 作用 有 分 布 载荷 9 时 ， 单 元 载荷 向 量 可 以 按照 下 式 计算 
Р°= || мадду (7-22) 
当 9 为 常数 时 ， 上 述 积分 结果 为 
м l b -a | b a | b a 1 -b -af 
MEE 2242242 D 4 12 =] (7-23) 


5. 坐标 变换 问题 


在 第 3 章 中 指出 ， 对 于 不 同 几何 外 形 的 同类 单元 ， 可 以 先 推导 出 该 类 单元 在 标准 尺寸 
下 的 各 矩阵， 然后 再 通过 坐标 变换 得 到 不 同 外 形 单元 的 相应 矩阵 . 这 样 做 要 比 直接 推导 各 
单元 矩阵 方便 . 不 过 在 应 用 本 节 单 元 的 时 候 要 注意 : 由 于 一 般 四 边 形 不 能 满足 常 应 变 准 
则 ， 即 不 能 通过 分 片 试验 ， 所 以 收敛 性 差 ， 不 适合 在 实际 问题 中 采用 ， 只 有 平行 四 边 形 单 
元 无 此 问题 . 原因 是 上 述 推导 过 程 中 使 用 的 标准 矩形 和 平行 四 边 形 之 间 坐 标 变换 的 雅克 比 
行列 式 为 常数 (参考 第 4 章 等 参 单元 ) 所 以 在 使 用 此 矩形 单元 的 时 候 ， 要 注意 需要 将 单元 
划分 为 平行 四 边 形 . 
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7.2.2 三 节点 三 角形 单元 

相 比 四 边 形 单元 ， 三 角形 单元 更 能 够 适合 实际 工程 中 结构 复杂 的 边界 形状 ， 所 以 三 角 
形 单元 在 工程 中 得 到 较 多 的 应 用 . 

在 三 角形 单元 中 ， 一 般 使 用 面积 坐标 来 构成 形 函数 . 

1. 面积 坐标 

三 角形 中 的 任意 一 点 可 以 和 三 角形 的 3 个 顶点 组 合 ， 将 三 角形 划分 为 3 个 子 三 角形 . 
可 以 用 子 三 角形 中 属于 原 三 角形 的 边 所 对 的 原 三 角形 顶点 编号 来 对 子 三 角形 的 面积 编号 
如 图 7.3 所 示 ， 子 三 角形 Pim 的 面积 编号 为 4. 类 似 的 ， 子 三 角形 Рт 和 子 三 角形 Pij 的 
面积 分 别 为 4 和 A 


NACE 


图 7.3 三 角形 单元 
定义 
L=4/4 
L=4/4 (7-24) 
Ln = Ay! A 


则 此 时 己 的 位 置 可 以 通过 以 上 3 个 比值 来 确定 ， 此 坐标 称 为 面积 坐标 . 

因为 3 个 子 三 角形 的 面积 总 和 应 该 等 于 原 三 角形 面积 ， 所 以 有 

L+L,+L,=1 (7-25) 

HJ 3 个 比值 (面积 坐标 ) 并 不 完全 相互 独立 ， 而 是 只 有 两 个 独立 量 ， 通 过 任意 两 个 可 以 求 得 
第 3 个 面积 坐标 值 . 

在 面积 坐标 中 ， 三 角形 内 与 节点 i 的 对 边 jm 平行 的 直线 上 的 各 点 具有 相同 的 L, 坐标 . 
3 个 顶点 的 华 标 分 别 为 i(1,0,0)，j(0,1,0)，m(0,0,1). 3 条 边 的 也 可 以 方便 地 表示 为 : jm 边 
Li=0; mi 边 L=0; ўі Lm=0. 

2. 形 函 数 

在 使 用 面积 坐标 的 情况 下 ， 对 于 本 节 三 角形 单元 ， 可 以 使 用 如 下 形 函 数 
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" L*BL*BL-LB-LÉ 
nf &(ый+уһыһ})-ь[дь+уһыһ) (7-26) 
«(овез )- (in en) 
Job blc s 


} (7-27) 
因为 此 单元 有 3 个 节点 ， 所 以 还 有 N, 和 N, ， 可 以 通过 对 式 (7-27) 轮 换 下 标 来 得 到 . 
3. 计算 单元 刚度 矩阵 和 质量 矩阵 


在 确定 了 形 函 数 之 后 ， 可 以 按照 各 种 单元 通用 的 标准 过 程 完 成 积分 得 到 各 单元 矩阵 . 
在 积分 中 可 以 使 用 下 式 来 简化 积分 过 程 


c, = —x, — x, 


"PI е, S alble! š 
|| neq = i (7-28) 
例如 通过 式 (7-28) 可 以 得 知 
aay 21010! m. š 
Пу = oci 6 0-29) 


73 ЗМАЈ 


根据 考虑 剪 切 变形 的 Mindlin 板 理论 ， 垂 直 于 板 中 面 的 平面 在 板 变 形 后 将 不 再 垂直 于 
中 面 ， 所 以 需要 同时 考虑 板 的 剪 切 能 量 和 弯曲 能 量 


"EP k 
0= |, GiedV +> [,cieav (7-30) 
其 中 弯曲 应 力 和 应 变 为 
о,={о, о, n) (7-31) 
в,={є, =, Yo} (7-32) 
剪 切 应 力 和 应 变 为 
o,={r, т, (7-33) 
E, ={x x] (7-34) 


大 是 考虑 实际 的 剪 切 应 变 沿 厚 度 方 向 非 均匀 分 布 而 引入 的 校正 系数 ， 为 516- 
将 弯曲 和 剪 切 应 力 应 变 关系 带 入 式 (7-30)， 可 得 
lpa k 
0=5 Гера + 3 helDedr (7-35) 


其 中 
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lv 0 
p=— v 1 0 (7-36) 

1-v ie 

0 0 — 

2 

G 0 
2 °] (7-37) 
板 内 的 位 移 可 以 表示 为 

u=-z0,(x,y) (7-38) 
v=-—z6, (x,y) (7-39) 
w=w(x,y) (7-40) 


RP, 6,816, CP TSE y MA x HE. 假设 板 中 面 没有 板 内 位 移 ， 则 对 剪 切 变形 
板 ， 有 


0, amy, (7-41) 
8, Rn (7-42) 


Ub, y 为 由 横向 剪 切 变形 造成 的 角度 .“ 

由 于 位 能 表达 式 中 的 w&. 和 以 是 各 自 独立 的 ， 所 以 对 其 进行 的 插值 也 可 以 各 自 独立 
进行 . 这 样 其 插值 函数 只 要 求 O, 的 连续 性 . 应 用 在 等 参 单元 一 节 中 介绍 的 形 函 数 ，w,6, 和 
8, 可 以 分 别 插值 表示 为 


w= ÈH, (Envi (7-43) 
8. =È, (EM), (7-44) 
8, =$ H, Ene), (7-45) 


RP, n 为 单元 节点 个 数 . 
下 面 以 双 线性 等 参 形 函数 为 例 来 说 明 进一步 的 计算 过 程 . 使 用 高 阶 形 函数 也 可 以 用 类 
似 的 推导 过 程 完成 计算 . 弯曲 和 剪 切 应 变 可 以 从 位 移 中 计算 出 


E, - -zB,d* (7-46) 
£, -Bd (7-47) 
其 中 
aH, Ән. 2H. 
0 0 2 0 4 0 4 
ox ox Э ox ° ox ©, 
OH, OH. OH. ӘН, 
В, =| 0 L0 0 20 0 2 0 0 +0 7-48 
: 3 Әу 3 Әу e 
ан, ән, Q Ән, Ән, y Ән, 3H, > dH, OH, y 


ду or ду ax ду ox oy 


256 MATLAB 有 限 元 结构 动力 学 分 析 与 工程 应 用 


н o n, б 9 н о 9H 
B= дх ox ox ox (7-49) 
PR oH, oH, 9H, oH, 
E 0 -H o9 -H, 0 -H 
ddr" ШЕ: ` > “> 


={(0), (6) в (6), (6), e (8), (&), а (6), (8), a} a-s) 
将 式 (7-46) 和 式 (7-47) 带 入 式 (7-45) 可 得 
le y Eure T w 
u=; f, [B] p,B,azaQ(a eua Y [s D,B,dzd.2{d"} (7-51) 
由 此 可 得 弯曲 板 的 单元 刚度 矩阵 
=E [,BiD.da+ h|, BD aO ‚2 (1-52) 
RP, h ЭЙЕ. 
当 板 的 厚度 相对 于 其 边 长 很 小 的 时 候 ， 剪 切 能 量 将 远大 于 弯曲 能 量 ， 这 种 现象 称 为 前 
切 锁 死 . 为 避免 此 问题 ， 一 般 可 以 选用 选择 积分 或 者 缩减 积分 的 方法 . 研究 结果 还 表明 ， 
在 避免 剪 切 锁 死 方面 ，Lagrange 单元 通常 具有 较 好 的 性 能 . 


74 具有 位 移 自由 度 的 板 元 


在 此 类 单元 中 ， 认 为 单元 内 位 移 中 的 u 和 v 不 但 在 ху 平面 内 变化 (此 处 设 坐标 系 中 xy 
平面 与 板 的 中 面 平行 )， 而 且 也 有 沿 板 的 厚度 方向 (z 轴 方向 ) 的 变化 . 所 以 是 zy 和 z 的 


函数 


u=u(x,y,z) (7-53) 
v=v(x,y,z) (7-54) 

而 w 则 没有 沿 板 的 厚度 方向 的 变化 ， 可 以 表示 为 
w= (x,y) (7-55) 


所 以 在 使 用 插值 函数 和 各 节点 位 移 来 表示 板 内 任意 一 点 的 位 移 的 时 候 ， 使 用 两 个 插值 
MUN, (х,у) MI H, (z). 其 中 N, (x,y) 用 以 完成 在 xy 平面 内 变化 的 插值 ， 而 Н, (2) 用 以 完 
成 沿 z 轴 变 化 的 插值 .单元 的 节点 位 移 也 使 用 两 个 下 标 来 进行 编号 如. 其 中 i 是 在 
xy 平面 内 的 编号 ， 而 / 是 在 = 方向 的 编号 对 于 w，， 因 为 具有 相同 i 的 各 点 的 w 位 移 都 相 
同 ， 所 以 可 以 略 去 第 2 个 下 标 ， 直 接 记 为 W 

这 样板 内 任意 一 点 的 位 移 可 以 表示 为 (在 此 处 使 用 了 局 部 坐标 系 61c ) 

“УУ м (En) A, (Om, (7-56) 


v= XXX (&m)H,(£)v, (7-57) 


чуч! 
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RP, NAN, AE £n ЗР tii Gc 平面 ) 内 节点 的 数目 和 沿 : 轴 (z 轴 ) 节 点 的 数目 . 例如 对 于 选 
取 立 方 体 全 部 顶点 作为 节点 的 板 单元 来 说 ，N =4, А, =2( 即 单元 在 矩形 上 下 表面 上 各 


有 4 个 节点 ). 
弯曲 应 变 6, 和 横向 前 切 应 变 &, 分 别 可 以 用 位 移 表示 为 
E] 
— 00 
E, = и 
”=1e /=|0 二 0 
ui àv 4 
"аа 9 
ду ox 
a a 
„Ла ° x34 
^b. 3 2| 
а: Әу |" 


ЖЖ ОР, ЗЕР THR g, 可 以 忽略 不 计 . 


(7-59) 


(7-60) 


对 N, =4,N, =2 的 选取 立方 体 全 部 顶点 作为 节点 的 单元 ， 将 式 (7-56) 一 式 (7-58) 代 入 式 


(7-59) 和 式 (7-60)， 可 得 


е, = B,d° 
є, = Ва“ 
其 中 
B,=[B, B, B, B] 
ƏN, ƏN, 
H,—- 0 — 
зу н, о о 
ON, ƏN, 
B, = 0 H,—- 0 H,— 0 
Я S x 
ƏN, ƏN, ƏN, ƏN, 
н< H H, H,— 0 
D “ы зу hs 
«46 di ds ai} 
di ={u, v, ua vw, w} 
B,=[B, B, B, B.] 
OH, OH. ƏN, 
N, 1 0 N, 2 0 L 
FRE ә: ar 
Я 
o май о p ањ 
д: a Әу 
各 向 同性 材料 的 本 构 方程 是 
с, = р,є, 


其 中 


(7-61) 
(7-62) 


(7-63) 


(7-64) 


(7-65) 
(7-66) 
(7-67) 


(7-68) 


(7-69) 
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s-[e e, n] (7-70) 
1v 0 
n-—L.vai o (7-71) 
1-v* 
2 
对 于 弯曲 分 量 有 
o, =DE, (7-72) 
其 中 
o, sfin n] (7-73) 
E 10 
».-x se '] (7-74) 
系统 的 总 势能 可 以 表示 为 
IH -U-Ww (7-75) 
其 中 外 力 所 做 的 功 所 为 
W=d'F (7-76) 


在 式 (7-76) 中 4d 是 系统 节点 位 移 向 量 ， 环 是 系统 载荷 向 量 . 因为 在 此 单元 中 没有 考虑 
转动 自由 度 ， 所 以 外 力矩 应 该 转换 为 一 对 分 别 作用 在 单元 上 下 表面 上 的 力 来 表示 . 
式 (7-75) 中 内 应 变 能 U 由 两 部 分 组 成 


U=U,+U, (7-77) 
其 中 弯曲 应 变 能 量 为 
1 
以 = foiea (1-78) 
横向 剪 切 应 变 能 量 为 
1 
0,22 haea (7-79) 


其 中 积分 区 域 Q 为 整个 板结 构 . 实际 上 ， 在 有 限 元 中 ， 该 积分 是 通过 对 结构 的 空间 离散 化 
来 分 区 域 进行 的 . 所 以 上 述 积分 可 以 写成 各 子 区 域 (单元 ) 积 分 的 总 和 
U, -Xie y LE D,B,dQ(d*) (7-80) 


U,- Ушу [ 8D, BaQur) (7-81) 
在 上 面 两 式 中 e 为 结构 中 所 有 单元 总 数 . 
综合 上 述 各 式 ， 可 以 得 出 此 种 单元 的 单元 刚度 矩阵 为 
к= | „B; р,В,42+ [ 85.520 2o 022) 
在 计算 注 板 问题 时 ， 应 格外 注意 在 通过 数值 积分 得 到 式 (7-82) 结 果 的 时 候 ， 应 该 使 用 
缩减 积分 方案 来 避免 出 现 剪 切 锁 死 现象. 
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经 典 板 理论 的 方程 为 
ээ a 
M, --D, (Ez 29) (7-83) 
Pere 
M, =-D, (eem) (7-84) 
M; =p, (naw (7-85) 
à А 
DM, INEM o (7-86) 


Ub: MHB: Dee br 巨 为 材料 的 弹性 模 量 ，v 为 材料 的 泊 
ЖЕ: 为 板 的 厚度 ; р 为 压力 载荷. 

直接 对 式 (7-83) 一 式 (7-85) 使 用 伽 辽 金 法 求解 ， 并 不 能 得 到 对 称 和 矩阵 的 结果 . 所 以 首先 
将 式 (7-83) 一 式 (7-85) 转 换 为 以 下 各 式 


5(M,-vM, )+2% <0 (7-87) 
2 
5(м, ~vM,)+ E$ =0 (7-88) 
д» 
25(1 M, +2——=0 7-89) 
(1+и)м, + Эду (7-89) 
其 中 = 了 这样 可 以 对 式 (7-86) 中 的 平衡 方程 使 用 伽 辽 金 法 求解 ,单个 单元 的 方程 
如 下 
к, K, о к;]|(м,]) [5 
к, K 0 к, |м, | ]R , 
о о K, K |M, | |5 0 
к, к, K, 0](w] IF, 
其 中 
K,-S[ N'NaQ (7-91) 
›=-®К, (7-92) 
-. p [ON] fan 
K,-- Ц] [5 ho (7-93) 
әм [aN ls 
K,=- — | |> 7-94 
EAE n 
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K, =-20+V)K, (7-95) 
= ЫР om 
aw 
F, --[. маг (7-97) 
тд» 
F,=-[ N zT (1-98) 
ðw, д» 
в=-[ oN" E2 "xL Jar (7-99) 
F.=-[. N'oar+ | мао + (7-100) 
Q, =Q., * QJ, (7-101) 


在 上 面 各 式 中 : 1 AU, PIE SI ER ARK: Q AWH: N 为 形 函数 . 各 种 等 
参 单元 ， 无 论 是 四 节点 还 是 三 节点 ， 都 可 以 采用 以 上 各 式 进行 计算 . 

在 前 面 各 式 中 没有 考虑 横向 剪 切 变形 的 影响 ， 在 计算 厚 板 问题 时 ， 可 以 采用 下 面 给 出 
的 混合 板 单元 . 


考虑 了 横向 剪 切 力 的 板 平衡 方程 如 下 
дм, | 9M, -0.=0 (7-102) 
а y | 
aM, 9M, _ 
Seen? (7-103) 
20, 90, p= - 
ae tay TP nO (7-104) 


PAS FLU AE 1G TII 3 3E DOE E T И UB TE RR. 在 薄板 理论 中 ， 单 元 节点 转 
角 与 横向 变形 是 相关 的 ; 但 是 在 厚 板 理论 中 ， 认 为 两 者 无 关 . 因此 ， 单 元 在 xy,z 3 个 方向 
上 的 位 移 可 以 表示 为 


и=-:6, (х,у) (7-105) 
v=-z0, (x,y) (7-106) 
w=w(x,y) (7-107) 
式 中 ，& 和 0, 为 关于 x 和 y 轴 的 转角 . 将 以 上 3 式 带 入 运动 方程 并 应 用 本 构 方程 得 到 

S(M, -vM, ) =0 (7-108) 

" 

96, 
S(M, -vM,) 7 =0 (7-109) 

дө, 96, _ 

2S(1+v)M,, + » EET =0 (7-110) 


在 以 上 3 式 中 ， Ilo, ж, вий ох 9н, 那么 将 得 到 式 (7-87) 一 式 (7-89). 
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然而 在 厚 板 理论 中 ， 上 述 两 组 方程 间 的 关系 将 不 会 保持 . 
运用 对 于 横向 前 切 分 量 的 运动 方程 和 本 构 方程 ， 可 以 将 剪 切 力 用 转动 和 变形 表示 
如 下 
ow 
Q, =коң{-, +2) (7-111) 


ðw 
=KGh| -8 + 一 7-112) 
o, = xan, +2") (7-12) 


RP: 大 为 剪 切 校正 系数 ， 其 值 为 5/6; G 为 剪 切 模 量 ， h 为 板 的 厚度 . 从 以 上 两 式 可 以 得 
到 转角 的 表达 式 


6 -- t (7-113) 
8, —Rx (7-114) 
将 以 上 两 式 带 入 式 (7-108) 一 式 (7-110)， 消 去 其 中 的 转动 项 得 到 
5(M,-vM,)- 92. P co (7-115) 
5(м, -vM, ue +090 (7-116) 
25(1+и)м, ee (7-117) 


从 上 面 3 式 可 以 看 出 剪 切 力 项 和 力矩 项 前 的 系数 分 别 是 与 板 厚 度 和 板 厚 度 3 次 方 成 反 
比 ， 这 样 在 板 的 厚度 趋 近 于 零 的 时 候 ， 和 力矩 项 相 比 ， 剪 切 力 项 可 以 忽略 不 计 . 考虑 到 当 
板 的 厚度 与 其 长 度 相 比 很 小 时 ， 板 的 剪 切 变形 可 以 忽略 不 计 ， 所 以 前 述 忽 略 剪 切 力 项 是 可 
以 接受 的 . 

为 了 消去 剪 切 力 ， 将 式 (7-102) 和 式 (7-103) 带 入 式 (7-115) 一 式 (7-117)， 并 运用 式 (7-104) 
就 可 以 得 到 


2 aM. 2. 
(s-i м. n -i каш. (7-118) 
2 9! M. 2, 
-v$M, (52 E I Mon. (7-119) 
1 (aM, _ M, 19) 109» aw 
zu x hd ra 2 - ` 
志 ( à * dày fasan GN WT SSE 2.)м, + aay 0 (7-120) 


以 上 3 式 加 上 式 (7-86)，4 个 方程 中 包含 有 同样 的 4 А. M, M, M, Aw, XREN 
板 公式 中 的 情况 一 样 . 如 果 将 系数 中 带 有 -的 项 略 去 ， 上 述 公式 就 缩减 成 了 注 板 问题 的 


方程 . 实际 上 ， 当 板 的 厚度 趋向 于 零 时 ， 以 上 各 项 是 可 以 忽略 的 . 因为 剪 切 力 相关 项 都 是 
和 成 反比 ， 而 弯曲 相关 项 都 是 和 大 成 反比 . 
对 以 上 的 4 个 方程 应 用 伽 辽 金 法 ， 便 可 得 到 以 下 矩阵 形式 的 方程 
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Kı Ky Ks K,|[M, R 


Ky K, Ky к, |м, |15 
Ку Ky Ky Ky||M,| |F, 
Ky Ky Ks Ка) w F, 
其 中 
K,=5 [„м'лаа+—Ь- [z] E 


Ka --vs [, ммо 
105 
“全 区“ 
K,=s[, ммо ЕД [2 ho 
sore ll [s o 


ZU E 


(7-121) 


(7-122) 
(7-123) 


(7-124) 


(7-125) 


(7-126) 


(7-127) 


(7-128) 


Ks =2(1+v)S [, N'NaQ+ ES LT BS o E MEJET 


an T fon] [an] [an 
К. = 一 I — L— M 
+ ж EE 
K,-0 
ðw 1 
F=-f N A taal N'Y Iar 
aw 1 
R=- f NT Stare Nar 
aw, aw 
&-- f (on ux Jars 
MEC ә 
== le gt Mol) + LL +M) ar 
к,=-[„М'оАаг+ | N pdQ 


(7-129) 
(7-130) 


(7-131) 
(7-132) 


(7-133) 


(7-134) 


(7-135) 
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7.6 FER л 


杂交 板 元 也 是 基于 对 平板 内 应 力 的 假设 ， 需 要 Ce 阶 连 续 性 . 和 其 他 类 型 单元 的 区 别 
在 于 杂交 板 元 是 基于 如 下 改正 过 的 系统 势能 表达 式 进行 推导 的 
п= f ie De, -Se De +e; ра 


(7-136) 
+6,'D,L,d)dQ- fa par 
其 中 
_[әв, де, (ae 96] 
«- B = (a. x) (7-137) 
«n 2) ЕЗ) (7-138) 
4-|& ө, w| (7-139) 


此 外 也是 弯曲 应 变相 关 的 材料 性 能 矩阵 ， 忆 ,是 横向 剪 切 应 变相 关 的 材料 性 能 矩阵 ;五 是 
弯曲 应 变 位 移 算 子 ; ML 是 剪 切 应 变 位移 算 子 ，p 是 作用 在 板 上 的 压力 载荷 . 

通过 系统 势能 的 驻 值 解 得 到 平衡 方程 和 广义 应 变 位 移 关 系 . 为 了 得 到 有 限 元 模型 ， 将 
广义 应 变 位 移 离散 化 为 以 下 形式 


в,=В,о, (7-140) 
£, = Ва, (7-141) 
а= мі (7-142) 


其 中 假设 各 单元 中 的 广义 应 变 是 相互 独立 的 , 广义 位 移 可 以 使 用 各 广义 节点 位 移 g 插值 而 
得 ，B, 和 有 B, 分 别 是 广义 应 变 参 数 向 量 @, 和 @&, 的 多 项 式 表达 式 系数 的 矩阵 形式 ，NN 是 形 函 
数 的 矩阵 形式 . 

п =-1aG,a, заба, +аїн,йаїнй-аЕ 


(7-143) 
其 中 
G, = [, B; D,B,42 (1-144) 
G, = | в!р,вао (7-145) 
H, = LL в! D,L,NàQ (7-146) 
н, = | B7 D,L, NAQ (1-147) 
F-[ N'pir (7-148) 


调用 式 (7-143) 分 别 关 于 四 和 的 驻 值得 到 
~G,a,+H,d=0 (7-149) 
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-G,a, +H å =0 (1-150) 
运用 式 (7-149) 和 式 (7-150) 从 式 (7-143) 中 消去 wm 和 得 到 
п E (H,'G,' H, + HG;  H.)d -d'F (7-151) 
通过 式 (7-151) 可 以 最 终 得 到 如 下 的 有 限 元 系统 方程 
Kd=F (7-152) 
其 中 
K-H/G,'H,«H/G,'H, (7-153) 
对 于 双 线 性 板 单元 ， 广 义 应 变 向 量 假设 为 
100x00y00 
B,=|0100x00y0 (7-154) 
00100»x020,y 
10 
24 '] (7-155) 


从 式 (7-155) 可 以 看 出 ， 在 双 线 性 板 单元 中 ， 弯 曲 应 变 是 线性 变化 的 ， 剪 切 应 变 是 恒定 不 变 
的 常数 . 


7.7” 非 轴 对 称 超 参数 壳 体 单元 


在 研究 壳 体 问题 时 ， 通 过 将 壳 体 离散 近似 为 多 个 局 部 平板 的 组 合 ， 即 使 用 前 面 所 介绍 
的 各 种 板 单元 来 进行 分 析 ， 当 单元 数目 足够 多 时 ， 可 以 提供 足够 的 精度 . 但 是 如 果 使 用 本 
身 就 是 曲面 的 这 体 单元 ， 自 然 可 以 使 用 更 少 的 单元 就 达到 同样 的 精度 .因此 本 书 不 再 单列 
二 章 讨论 壳 体 单元 ， 只 介绍 一 种 非 轴 对 称 的 超 参 数 壳 体 单元 作为 补充 

由 于 对 于 厚 板 和 厚 壳 ， 中 面 法 线 在 变形 后 仍 基本 保持 为 直线 ， 所 以 在 这 种 单元 中 假定 
中 面 法 线 在 变形 后 仍 保持 为 直线 ， 并 忽略 垂直 于 中 面 的 正 应 力 所 引 起 的 应 变 能 ， 每 一 节点 
有 5 个 自由 度 . 通过 利用 形 函数 进行 坐标 变换 ， 壳 体 中 面 可 以 是 任意 曲面 . 在 这 种 单元 计 
算 中 还 考虑 了 横向 剪 应 力 影响 ， 故 比 一 般 基于 注 壳 理论 的 单元 准确 . 因此 这 种 单元 不 但 可 
以 分 析 厚 壳 ， 而 且 可 以 分 析 注 沉 . 大 量 的 研究 和 计算 实例 表明 ， 这 种 单元 具有 计算 精度 
高 、 适 用 范围 广 等 优点 ， 是 目前 为 止 最 好 的 壳 体 单元 之 一 


7.7.1 曲面 单元 与 映射 

如 图 74 Bia, "oci (Eno). ¿=0 ICM, ¿=*1 mouit 
上 、 下 表面 ， 均 为 曲面 . ё=+1Ж1 = 二 是 由 直线 产生 的 4 个 截面 . 单元 节点 取 在 中 面 
上 ， 共 取 8 个 节点 ， 即 4 个 角 点 和 4 个 边 中 点 . 


图 7.4 曲面 单元 
设 节点 i 的 直角 华 标 为 (x%,y,z,) > WPH (G =0) 上 任 一 点 名 7 的 整体 坐标 可 以 表示 
如 下 


x= Nx, у= Уму, т=ў Мз, (7-156) 
stb. Nn) 为 单元 的 形 函数 ， 具 体 表达 式 为 
HFM N = L(+ SE) +ma)(EE+n0-1) 
对 于 边 中 点 : £ =0, х.=з(-ё')а+лл) (7-157) 
m=0, N.=3(1+86)(I-7) 


设 =+1 代 表单 元 的 下 表面 ， = -1 代表 单元 的 上 表面 ， 单 元 内 任 一 点 的 整体 坐标 
(x,y,z) FY DF eb BAB (£p, Ç) 表示 如 下 
x x se fa 
Эмен) змена) (7-158) 


3, z, 


4 Ax, Ay, Az, 为 节点 i 在 厚度 方向 的 坐标 差 值 


Ax. [x x, 
Ду = =) (7-159) 
Аг,, z), (2), 


代入 式 (7-158)， 得 到 单元 内 任 一 点 的 整体 坐标 如 下 


х x Ax, 
papel = (7-160) 
z 2), А, ` 


ЧЕЗ(7-158)——Җ(7-160)°:, А ba a ir Т e FEM, BH kah it WW ua 
标 是 与 该 节点 相对 应 单元 下 表面 处 的 坐标 ， 类 似 地 ，B 表示 上 表面 ，M 表示 中 面 ， 这 样 
定义 出 近似 的 垂直 于 中 面 的 局 部 坐标 . 
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77.2 (BBR 
在 每 一 节点 i 处 有 3 个 线 位 移 和 两 个 角 位 移 ， 为 了 定义 角 位 移 ， 如 图 75 所 示 ， 作 3 
个 正 交 向 量 H, Hy, Hy. 
首先 ， 作 垂直 于 中 面 的 正 交 向 量 召 ， 
H,,={Ax, Ay, An] (7-161) 


Н, 的 方向 余弦 为 
(7-162) 


它们 均 切 于 中 面 ， 并 正 交 于 Hu. TË H, Hy Hy SHM xyz 大 体 一 致 采用 如 下 做 
法 , Ф 
H, =H,xi, H,=H,xH, (7-163) 

HIH, 正 交 于 H, Al x Hh, H, IESE H, 和 HH,， 根 据 向 量 运算 法 则 不 难 由 式 (7-163) 求 出 
Hu (697 І, т, n, Ñ Hy ITE IAE Lm 

如 图 7.5 R WAE xyz 方向 的 线 位 移 分 量 分 别 为 志 ,v,w: 角 位 移 如 图 7.6 所 
示 ， 骨 为 壳 体 中 面 法 线 向 量 H, БЕРИШ H, ШЕН, w, 29 Ë t H, BE H, AES, 

BERA AEM 方 向 产生 的 线 位 移 为 48 ， 它 在 mvz 方向 的 位 移 分 最 为 
мө, ма MER, 由 于 转角 yy e Ha TRIP UA UON EEL Ete xyz 方向 
йи ш MV, AY, IE, 


图 7.5 线 位 移 
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Lp 
н, 2 
m76 fatis 
利用 形 函 数 N(#7) ， 单 元 内 任意 一 点 的 位 移 可 以 用 中 面 节 点 位 移 


6" =[и„у,з\,ф v, ] 表示 如 下 
и Д м | ^ 
vi= Ум Dx m, m, М! (7-164) 
w № mon) i 
比较 式 (7-160) 和 式 (7-164) 可 见 ， 定 义 单元 几何 尺寸 的 式 (7-160) 比 定义 单元 位 移 的 式 


(7-164) 具 有 较 多 的 自由 度 ， 因 此 这 种 单元 属于 超 参 数 单元 ， 不 会 自动 满足 常 应 变 条 件 . 但 
从 后 面 对 应 变 的 定义 中 可 以 看 出 ， 关 于 刚体 位 移 和 常 应 变 的 条 件 是 可 以 满足 的 . 


773 ”整体 坐标 中 的 应 变 
整体 坐标 (x,y,z) 中 的 应 变 取 决 于 下 列 矩阵 


Qu oV Ow 
ox Ox ox 
ди ду aw 
一 一 一 7-165 
ə a ду ee) 
au ay aw 
az д: Әг 
将 位 移 函 数 式 (7-164) 代 入 分 别 对 x,y,z 求 微 商 ， 可 得 
au av aw] [au æ aw 
а Oe od ag 95 95 
ди av aw ди av aw 
= = > (77 x 7-166) 
ay ду ay Әп дп дл ар 
ди ду. dw (диде. OW 
Ә: д: дг ag ag ag 


其 中 为 雅 可 比 和 矩阵 
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ж фу ë 
o£ o£ o£ 
ж ay д x 
an an og (7-167) 
& фу ë 

ag 965 oc 


774 ”局 部 坐标 中 的 应 变 与 应 力 


在 厚 壳 的 分 析 中 ， 由 于 壳 体 中 面 的 法 线 方向 与 整体 坐标 系 的 z 轴 并 不 一 致 ， 而 且 法 线 
的 方向 随 着 点 的 位 置 不 同 而 变化 ， 既 然 假定 垂直 于 壳 体 中 面 的 正 应 力 等 于 零 ， 就 必须 求 出 
局 部 坐标 系 中 的 应 力 与 应 变 . 现 假定 局 部 坐标 为 (x уу, 27), ， 其 中 z 轴 正 交 于 壳 体 中 面 . 

前 面 已 经 求 出 了 节点 i 的 局 部 正 交 向 量 H, Hy, Hy. 现在 建立 单元 内 任意 一 点 的 局 部 
MER (x,y,z). 

如 图 77 Bios. E (5m. 6.) 点 作曲 面 = 名， 在 此 曲面 上 有 两 条 空间 曲线 ， 一 条 是 
пет, 6—6. 再 作曲 面 6= 如 的 两 个 切 向 量 d Mdn, IEP dg 切 于 曲线 


а Е п (54 9 z 
n=m » dn U) T h # =é, d рш, аё (a , 


EFC ITE! t 向 向 
GA RP Je kx, ys zI ENA. 
fz ЖИ Ра Mdn, BEES =C, Mii 


i 
А ox dz 
2 =d£xdn= EH FH 
(0х ду дг 
on om Vm 


由 此 可 以 求 出 z 的 方向 余弦 ,m,nm. HERPE (x, y^, z^) 与 整体 坐标 (x,y,z) 大 体 
一 致 ， 以 便于 结果 的 整理 和 边界 条 件 的 处 理 ， 对 于 其 他 两 个 坐标 x 和 yy 用 如 下 方法 选 
取 . 令 


(7-168) 


т RIL 


£ L$ 
b m, n, 
гоо 
Н у FARZ, m,n. WR MAMP, WBU y oz xy. A, fEx iE 
BEF yz’, ШШх'=у'хг', НАТИЖЕ x 的 方向 余弦 1,m,n. 


y-zxx- (7-169) 
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B77 局 部 坐标 系 

BUE GERUS BEAR (x^, y^, z^) 的 方向 余弦 矩阵 如 下 
h h 4 
m m m, 
т пу" тъ 
利用 矩阵 8 可 将 整体 坐标 系 中 的 矩阵 式 (7-165) 转 换 到 局 部 坐标 系 中 去 
au әу ow 

9 dx ax’ 

au’ д/ ow 

ay’ of o 

» ду aw 

д” дг дг 


8- (7-170) 


(7-171) 


FIY зе |Р 

ely gly Ф| 

VIF | YI? 
Ф 


E 
5 

PSP T (7-172) 
ГА 


将 矩阵 如 分 块 ， 得 到 
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$ 
= [Be B, Bl) б. |= Вб, 


á 


AH: 87 =[u,v,w,ó,w,): 为 为 如 下 5x5 和 矩阵 
一 


ha, 
La, 
В = ha, +104 
1,0, +10, 
La * lar, 


其 中 


КФ М,= Мб. 


то, na, Вх 

та; ло, Bn 
то, +то па, +ња By + By, 
та, +m, nO, tm By, +В 
та *me, nano, BY +BY 


"ёс ay д: 
-(,9М. gm, Mi gy 9 
д (+ "at 2. 


у, zl, + mm, nn, 
A, = LL, mm, + nin, 


(7-173) 
BA 
BA, 
BÀ +BA 
BA, + BÀ, 
BA + BA, 
(7-174) 
(7-175) 


在 应 力 一 应 变 关系 式 中 令 o, =0， 可 得 各 向 同性 弹性 固体 的 5x5 弹 性 矩阵 如 下 


тд 0 0 0 


BLO E a^ Q 
1-й 

o 0 14 o о 
> * 
= -u 
оо о 14 
2k 

оо о о 14 

2k 


(7-176) 


式 中 : 已 和 /为 弹性 模 量 和 泊 松 比 ， 最 后 两 个 剪 应 力 项 中 包含 的 系数 大 可 取 为 .1.20. 引入 


系数 大 是 为 了 考虑 前 应力 分 布 不 


匀 的 影响 . 根据 前 面 所 述 位 移 函数 ， 剪 应 力 沿 厚 度 方向 


接近 均匀 分 布 ， 实 际 上 是 抛物 线 分 布 ， 大 的 数值 就 是 两 种 应 变 能 的 比值 . 
由 广义 胡 克 定理 ， 局 部 坐标 系 中 的 单元 应 力 为 


(7-177) 


第 7 章 ， 板 结构 271 


AP: ep AMM: of 为 初 应 力 ; 也 为 弹性 矩阵 . 在 刚度 系数 计算 中 ， 直 接 利 用 局 部 坐 
标 系 中 的 应 力 o ， 在 计算 输入 结果 时 ， 除 o^ 外 还 应 输出 整体 坐标 系 中 的 应 力 . 


(7-178) 


7 t о, 


7.7.5 “单元 刚度 矩阵 与 节点 载荷 


单元 刚度 矩阵 直接 在 局 部 坐标 系 中 使 用 下 式 计 算 
k, = [|| DB, jacanac (7-179) 

可 以 通过 数值 积分 来 求 出 刚度 矩阵 . 需要 指出 的 是 ， 正 如 轴 对 称 壳 体 情况 ， 超 参数 单 
元 在 引入 一 定 的 几何 假设 后 和 位 移 及 转角 各 自 独立 插值 的 壳 单 元 是 等 价 的. 进一步 的 研究 
工作 指出 ， 对 于 作为 三 维 赔 化 实体 元 的 超 参 单元 ， 式 (7-172) 中 所 表达 的 应 变 分 量 ev,er 和 
Угу 实际 上 包含 着 沿 厚度 ( 即 局 部 坐标 系 z') 均 匀 分 布 和 线性 分 布 两 部 分 . 后 者 是 壳 体 的 这 
曲 应 变 ， 它 相当 于 Mindin 板 中 的 曲率 变化 x 引起 的 应 变 ， 前 者 是 这 体 的 薄膜 应 变 ， 是 过 
体 中 面 内 的 变形 (在 板 弯曲 问题 中 ， 它 被 忽略 ) 所 引起 的 . 通过 量 纲 分 析 可 以 认为 ， 薄 膜 应 
变 能 项 和 剪 切 应 变 能 项 相同 ， 在 泛 函 中 也 具有 罚 函 数 的 性 质 . 因此 与 它 相关 的 刚度 矩阵 也 
应 是 奇异 的 . 否则 ， 在 壳 体 越 来 越 涯 时 ， 它 也 会 造成 “ 锁 死 ”现象 , 因为 这 种 锁 死 是 由 过 
分 的 虚假 薄膜 应 变 能 引起 的 ， 所 以 称 之 为 薄膜 “ 锁 死 ”. 

为 了 保证 非 奇异 性 ， 且 避免 竟 切 “ 锁 死 ” 和 注 膜 “镇 死 ” ， 从 原则 上 说 ， 在 Mindlin 
板 单元 中 讨论 的 各 种 方法 都 可 以 用 于 这 种 超 参 数 单元 . 例如 对 ese, 入 ,的 弯曲 应 变 部 
分 和 注 膜 应 变 部 分 以 及 横 剪 应 变 y,, „Жї y, ,采用 不 同 取样 点 的 插值 表示 . 但 是 对 于 一 般 形 
状 的 超 参 数 单元 ， 整 个 推导 过 程 和 表达 式 相 当 复 杂 . 因此 从 实用 角度 考虑 ， 一 般 采 用 的 方 
法 是 在 对 式 (7-179) 进 行 数值 积分 时 使 用 缩减 积分 的 方案 . 

数值 积分 是 在 积分 区 间 内 选取 一 定 的 积分 点 ， 累 加 这 些 积分 点 上 的 函数 值 与 相应 系数 
的 乘积 得 到 积分 的 近似 值 . 根据 选择 积分 点 的 位 置 和 系数 计算 方法 的 不 同 ， 数 值 积分 也 包 
括 多 种 方法 ， 例 如 牛顿 一 科斯 特 积分 和 高 斯 积分 等 . 高 斯 积分 法 能 在 同样 的 积分 点 数目 下 
实现 更 高 的 精度 ， 是 一 般 情况 下 采用 的 数值 积分 方法 . 在 使 用 数值 积分 时 ， 首 先 要 选择 积 
分 点 的 数目 ， 较 多 的 点 数 可 以 获得 更 高 的 精度 . 但 是 分 析 表 明 ， 在 对 式 (7-179) 进 行 数值 积 
分 时 ， 如 果 名 方向 采用 3x3 点 的 积分 ， 在 对 厚 板 和 厚 党 进行 计算 时 ， 能 得 到 较 好 的 结 
Ж: 而 用 于 薄板 和 沙 过 时， 结果 反而 不 好 . 其 原因 是 在 厚度 变 小 时 ， 发 生 了 “ 锁 死 ”现象 . 
而 改 用 2x2 点 的 积分 方案 ， 则 可 以 避免 “ 锁 死 ” 现象， 精度 可 以 得 到 明显 的 改进 ， 且 节 
省 了 计算 时 间 . 所 以 对 本 节 中 的 八 节点 单元 ， 可 以 在 ,和 方向 都 采用 这 样 的 2 点 缩减 
积分 方案 . 

节点 力 与 节点 位 移 之 间 存 在 如 下 关系 
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gogo 5 и, 
m K, „| 
|| 
k. w, (7-180) 


Ф, 
H L^ 

BFE HRP THT ARE Y PABA p ， 在 节点 i 分 布 载荷 在 x,y,z 方向 的 分 量 分 别 为 
Di P) pi 中 面 上 任 一 点 的 分 布 载荷 可 表示 为 

PELEN > p," Ур’, p.= Np (7-181) 

fE MT C = OE a ЕИ d£ 和 dg 所 构成 的 微小 面积 42 ， 由 向 量 运算 法 则 可 知 : 

dQ-|d£xdz|-|4|d£àn . Ж 
«-(2-2-2-2)42-2-2-8] 


ə On Ən o£) (Ə ən om ə 


oe 


an д$ o£ om 
由 虚 功 原理 ， 得 到 分 布 载荷 产生 的 节点 载荷 如 下 
X? = [ÍN (X мрг) |ајават 
Y? = [fN (Ургу) ldsay 
27 = |м, (X мрг) |ајагал 
Мм? =0, М" =0 


2) 
{а-а-а ә) | (7-182) 


(7-183) 


776 ”单元 质量 矩阵 


对 这 种 碗 体 单元 可 以 采用 如 下 集中 质量 矩阵 :整个 单元 质量 为 到 ， 每 个 节点 集中 单 
元 1/8 的 质量 ， 并 略 去 转动 项 ， 得 到 40x40 阶 的 矩阵 M 


m 0-0 
м» тт (7-184) 
0 0 … m 
fE M 的 对 角 线 上 的 8 个子 矩阵 m 是 5x5 的 对 角 和 矩阵 . 
1 
1 
m=” 1 (7-185) 
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78 复合 材料 单元 


因为 复合 材料 结构 和 一 般 结 构 相 比 ， 主 要 区 别 是 材料 性 质 ， 所 以 上 面 介绍 的 各 种 单 
元 ， 包 括 本 书 其 他 章节 介绍 的 各 种 单元 ， 通过 修改 K* = | в'рвау 中 的 弹性 矩阵 刀 ， ran 


般 都 可 以 用 来 计算 复合 材料 . 对 单元 其 他 部 分 一 般 不 需要 做 特别 改动 . 因此 ， 在 这 里 只 介 
绍 应 用 7.7 节 中 介绍 的 壳 体 单元 研究 多 层 复合 材料 结构 时 ， 计 算 登 层 弹 性 矩阵 D^ 的 过 程 . 
对 于 更 简单 的 板 单元 ， 可 以 使 用 类 似 的 计算 过 程 ， 这 里 不 再 叙述 . 

在 复合 材料 层 合 壳 体 中 ， 由 于 复合 材料 是 各 向 异性 材料 ， 所 以 其 第 i 层 主轴 弹性 矩阵 
О, 不 同 于 式 (7-176) 中 各 项 同性 材料 的 弹性 矩阵 ，Q@, 可 由 主轴 的 弹性 模 量 EO. E. yy) 
BUI GO 和 材料 的 泊 松 比 P «uu RRA 


ШУТ ну 
luu 1-04) 
(0) pl) (i) 
rrr * * 
Q-| о o G o о (7-186) 
Gg 
0 0 о — 0 
k 
(i) 
0 0 0 e 


同样 引入 系数 上 =1.2 是 为 了 考虑 剪 应 力 分 布 不 均匀 的 影响 . 
由 于 每 一 层 材料 的 主轴 方向 一 般 与 坐标 轴 方 向 不 重合 ， 第 ; 层 主轴 应 变 百 、 应 力 杞 、 
与 坐标 轴 方 向 的 应 力 a .. IAE e, 有 以 下 变换 关系 


=T se 
ATE (1-187) 
о,=Тб, 
式 中 ， 偏 轴 应 力 变 化 矩阵 也 为 
cos? 6, sin? 6, 2sin б соѕ6, 0 0 
sin’ & cos — —2sn@co@ 0 0 
T,=|-sin@,cos@, sin@cos@ cos'@ —si?'@ 0 0 (7-188) 
0 0 0 cos@ -—sin@ 
0 0 0 sin@ cos@ 


为 第 i 层 的 主轴 偏 角 . 


复合 材料 第 i 层 主轴 应 变 互 和 应 力 G 的 关系 为 
2,-Q& (7-189) 
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综合 式 (7-187) 和 式 (7-189) 可 得 坐标 轴 方向 的 应 力 &, 和 应 变 c 的 关系 为 
o, =0e, (7-190) 
其 中 А 
0,=тот" (7-191) 
需要 注意 的 是 ， 对 于 复合 材料 层 合 壳 体 ， 除 圆柱 壳 体 外 ， 其 他 壳 体 的 О, 将 不 是 常数 
T 4 x^, y^ 的 函数 . 这 是 因为 在 制造 复合 材料 层 合 壳 体 时 ( 除 圆柱 壳 体 外 )， 不 论 采用 什么 制 
造 方法 ， 至 少 存在 如 下 两 种 情形 之 一 : 沿 壳 面 单位 宽度 的 纤维 密度 不 一 样 ， 使 得 2 HEE 
面 有 变化 ; 纤维 方向 与 壳 体 主 曲率 方向 的 夹 角 Ө 不 是 常数 . НЕ, О 不 但 沿 厚 度 方向 是 不 
均匀 的 ， 而 且 沿 壳 面 方向 也 是 不 均匀 的 ， 且 其 变化 关系 与 制造 方法 有 关 ， 难 以 确定 . 所 以 
一 般 形状 的 复合 材料 层 合 壳 体 的 分 析 是 十 分 复杂 的 . 假设 @ 5 x, y^ 无 关 ， 对 一 般 壳 体 情 
况 是 不 精确 的 ， 对 锥 角 不 大 的 圆锥 壳 和 很 扁 的 扁 壳 则 是 很 好 的 近似 ， 只 有 对 圆柱 这 是 精确 
的 . 

在 得 到 各 层 的 弹性 矩阵 后 ， 可 以 计算 出 层 合 沉 体 情况 下 与 式 (7-179) 中 D 相对 应 的 基层 
弹性 矩阵 D". 对 于 一 般 壳 体 单元 ， D^ 由 拉 伸 刚度 А 矩阵 (extensional stiffness matrices). 
耦合 刚度 矩阵 盏 (extensional-bending coupling stiffness matrices)、 弯 曲 刚度 矩阵 万 (bending 
stiffness matrices) 和 横向 前 力 刚度 矩阵 A, (transverse shear stiffness matrices) i. 对 于 一 般 
工程 中 使 用 的 对 称 胎 层 的 层 全 材料， 其 看 合 刚度 请 为 零 . 而 且 如 前 所 述 ， 在 这 种 壳 体 单元 
中 的 应 变 分 量 ev，sy Жу 实际 上 已 经 包含 了 壳 体 的 薄膜 应 变 和 壳 体 的 弯曲 应 变 两 部 分 


所 以 不 必 再 考虑 耦合 刚度 柬 和 灾 曲 刚度 万 . 
9, 9, 0, Q, 9, б, 

я=ўб„ 0 9, 0. 0, 

Q, б„ 0.1, 9, б б 


5 010-5) 


Ea @ (б шесе) ow 
Ap: n 是 材料 的 层 数 ，z, 是 第 上 层 外 侧 一 面 距离 壳 体 中 面 的 距离 ;大 是 第 下层 的 厚度 . 
[0,1 ЖАН НОЕ О, 中 的 第 i 行 第 j 列 的 元 素 . h 是 沉 体 厚度 . 
则 县 层 弹 性 和 矩阵 D” 为 
р" f 2| (7-193) 


од 


20. б Os) (4 -24)= X 


11 


4 


lk 


此 时 单元 刚度 矩阵 为 


k, = [[[В, р” B,|ajaganag (7-194) 
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7.9 应 用 问题 与 MATLAB 程序 


7.9.1 求 一 边 固 支 方 板 的 频率 


求 如 图 7.8 所 示 的 一 边 固 支 方 板 的 前 15 阶 固有 频率 . 该 板 的 长 度 和 宽度 都 为 2m， 厚 
度 为 0.05m， 材 料 弹 性 模 量 E=2.1GPa , АШ 4-03, STE p 7300Kg/m'. 

使 用 四 节点 的 经 典 板 单元 来 求解 . 将 板 划 分 为 100 个 单元 . 在 此 例 中 ， 因 为 所 有 单元 
的 大 小 和 形状 都 一 样 ， 各 单元 的 单元 刚度 矩阵 和 质量 矩阵 相同 ， 只 需 计算 出 一 个 单元 的 单 
元 刚度 矩阵 和 质量 矩阵 即 可 ， 不 必 挨 个 计算 每 个 单元 . 所 以 在 程序 中 没有 一 般 有 限 元 程序 
中 所 必须 有 的 节点 坐标 数组 . 


2m 


] | 


图 7.8 一 边 固 支 方 板 


程序 如 下 : 

Е=2.1е11; elastic molulus 
poisson =0.3; % poisson ratio 
density=7.3e3; tdensity 
t=0.05; ‘plate thickness 


length in x direction 
‘length in y direction 
$number of nodes in x direction 
number of nodes in y direction 


k(1:330,1:330) 20; $system stiffness matrix 
m(1:330,1:330) -0; $system mass matrix 


*prepare the arrays which are needed to describe this problem 
en(1:100,1:4)=0; %element node 
jdx-1 
for nj=1:jdy-1 
en (ni+ (nj-1)* (jdx-1) , 1) -ni« (nj-1) *jáx; 
en (ni« (nj-1) * (jàx-1) ,2) =ni+1+(nj-1) *jdx; 


for ni- 
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en (ni+ (пј-1) * (jdx-1),4)=ni+nj*jdx; 
en (пі+ (nj-1)* (jdx-1),3) =пі+1+пј*јӣх; 


end 
end 
disp(1:jdx*jdy,1:3)-1; % node displacement 
constraints-1:jdx:jdx*jdy; % constraints 
disp(constraints, :)-0; 
dof-0; tdegree of freedom 
for пі=1:јах*јду 
for nj=1:3 
if disp(ni,nj 
dof=dof+1; 
disp (ni,nj)=dof; 
end 
end 
end 
el=1x/(jdx-1); %element length 
eh=ly/(jdy-1); element height 


[ek, dm] -km(e1/2, eh/2,mu, poisson,E,density); 

%km: function used to compute element stifness and mass matrix 

%їп this case, all elements have the same element stifness and mass 
matrix. 


Sbuilt system stifness and mass matrix. 
index(1:12)-0; $ vector sontaining system dofs of nodes in each element. 
for loopi-1: (jdx-1)*(jdy-1) 
for zi=1:4 
index((zi-1)*3«1)-disp(en(loopi,zi),1); 
index ( (21-1) *3+2) =disp(en(loopi,zi),2); 
index ( (21-1) *3+3) =disp(en(loopi, zi) ,3); 


end 
for jx=1:12 
for jy=1:12 
if (index (jx) *index (ју) ~=0) 
k (index (jx) , index (jy) ) =k (index (jx) , index (jy) ) «ek (jx, ју); 
m(index (јх), index (jy) ) =m(index (jx) , index (jy) ) +em(jx, jy); 


end 
end 
end 
end 


%solve eigenvalue problem 
[v,d] = eig(k,m); 
tempd=diag (d); 

[nd, sortindex] =sort (tempd) ; 
vzv(:,sortindex); 
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mode_number=1:15; 
frequency (mode_number) =sqrt (nd (mode number))/(2*pi); 


function [k,m]-km(a,b,poisson,t,E,density) 

к= [E*t^3/ (360-360*poisson^2) /a/b* (21-6*poisson+30*b*2/a*2+30*a*2/b*2), 
E*t^3/(360-360*poisson^2)/a/b* (3*b«12*poisson*b«30*a^2/b), 
E*t^3/(360-360*poisson^2) /a/b* (-3*a-12*poisson*a-30*b^2/a), 

E*t^3/ (360-360*poisson^2) /a/b* (-21«6*poisson-30*b^2/a^2415*a^2/b^2), 
E*t^3/(360-360*poisson^2) /a/b* (-3*b-12*poisson*b«15*a^2/b), 

E*t^3/ (360-360*poisson^2) /a/b* (-3*a«3*poisson*a-30*b^2/a), 
E*t^3/(360-360*poisson^2) /a/b* (21-6*poisson-15*b^2/a^2-15*a^2/b^2), 
E*t^3/(360-360*poisson^2) /a/b* (-3*b«3*poisson*b«15*a^2/b), 
E*t^3/(360-360*poisson^2)/a/b* (3*a-3*poisson*a-15*b^2/a), 
E*t^3/(360-360*poisson^2) /a/b* (-21«6*poisson«15*b^2/a^2-30*a^2/b^2), 
E*t^3/(360-360*poisson^2) /a/b* (3*b-3*poisson*b«30*a^2/b), 
E*t^3/(360-360*poisson^2) /a/b* (3*a«12*poisson*a-15*b^2/a); 
E*t^3/(360-360*poisson^2) /a/b* (3*b«12*poisson*b«30*a^2/b), 
E*t^3/(360-360*poisson^2) /a/b* (8*b^2-8*poisson*b^2440*a^2), 
-30*E*t^3/(360-360*poisson^2) *poisson, 
E*t^3/(360-360*poisson^2)/a/b* (-3*b-12*poisson*b«15*a^2/b), 

E*t^3/ (360-360*poisson^2) /a/b* (-8*b*2+8*poisson*b*2+20*a*2) , 

0, 

E*t^3/(360-360*poisson^2) /a/b* (3*b-3*poisson*b-15*a^2/b), 

E*t^3/ (360-360*poisson^2) /a/b* (2*b^2-2*poisson*b^2«10*a^2), 

0, 

E*t^3/ (360-360*poisson^2) /a/b* (-3*b«3*poisson*b-30*a^2/b), 
E*t^3/(360-360*poisson^2)/a/b*(-2*b^2«2*poisson*b^2420*a^2), 

0; 

E*t^3/(360-360*poisson^2) /a/b* (-3*a-12*poisson*a-30*b^2/a), 
-30*E*t^3/(360-360*poisson^2)*poisson, 

E*t^3/(360-360*poisson^2) /a/b* (8*a^2-8*poisson*a^2«40*b^2), 

E*t^3/ (360-360*poisson^2) /a/b* (3*a-3*poisson*a«30*b^2/a), 

0, 

E*t^3/(360-360*poisson^2)/a/b*(-2*a^242*poisson*a^2420*b^2), 
E*t^3/(360-360*poisson^2) /a/b* (-3*a+3*poisson*a+15*b*2/a), 

0, 

E*t*3/(360-360*poisson*2) /a/b* (2*а^2-2*роїввоп*а^2+10*Ь^2), 
E*t^3/(360-360*poisson^2) /a/b* (3*a«12*poisson*a-15*b^2/a), 

0, 

E*t^3/(360-360*poisson^2) /a/b* (-8*a*2+8*poisson*a*2+20*b*2) ; 
E*t^3/(360-360*poisson^2) /a/b* (-21«6*poisson-30*b^2/a^2415*a^2/b^2), 
E*t^3/ (360-360*poisson^2) /a/b* (-3*b-12*poisson*b«15*a^2/b), 

E*t^3/ (360-360*poisson^2) /a/b* (3*a-3*poisson*a«30*b^2/a), 

E*t^3/ (360-360*poisson^2) /a/b* (21-6*poisson+30*b*2/a*2+30*a*2/b*2) , 
E*t^3/(360-360*poisson^2)/a/b* (3*b«12*poisson*b«30*a^2/b), 
E*t^3/(360-360*poisson^2) /a/b* (3*a+12*poisson*a+30*b*2/a), 

E*t^3/ (360-360*poisson^2) /a/b* (-21«6*poisson«15*b^2/a^2-30*a^2/b^2) , 
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E*t^3/ (360-360*poisson^2)/a/b* (3*b-3*poisson*b«30*a^2/b), 

E*t^3/ (360-360*poisson^2)/a/b* (-3*a-12*poisson*a«15*b^2/a), 
E*t^3/(360-360*poisson^2) /a/b* (21-6*poisson-15*b^2/a^2-15*a^2/b^2), 
E*t^3/(360-360*poisson^2) /a/b* (-3*b«3*poisson*b«15*a^2/b), 

E*t^3/ (360-360*poisson^2) /a/b* (-3*a«3*poisson*a«15*b^2/a) ; 
E*t^3/(360-360*poisson^2)/a/b*(-3*b-12*poisson*b«15*a^2/b), 

E*t^3/ (360-360*poisson^2) /a/b* (-8*b^2«8*poisson*b^2420*a^2), 

0, 

E*t^3/ (360-360*poisson^2)/a/b* (3*b«12*poisson*b«30*a^2/b), 
E*t^3/(360-360*poisson^2) /a/b* (8*b^2-8*poisson*b^2440*a^2), 
30*E*t^3/(360-360*poisson^2) *poisson, 

E*t^3/ (360-360*poisson^2) /a/b* (-3*b«3*poisson*b-30*a^2/b), 
E*t^3/(360-360*poisson^2)/a/b*(-2*b^2«2*poisson*b^2420*a^2), 

0, 

E*t^3/ (360-360*poisson^2) /a/b* (3*b-3*poisson*b-15*a^2/b), 
E*t^3/(360-360*poisson^2) /a/b* (2*b^2-2*poisson*b^2410*a^2), 

0; 

E*t^3/(360-360*poisson^2) /a/b* (-3*a«3*poisson*a-30*b^2/a), 

0, 

E*t^3/(360-360*poisson^2) /a/b* (-2*a^242*poisson*a^2420*b^2), 
E*t^3/(360-360*poisson^2) /a/b* (3*a«12*poisson*a«30*b^2/a), 
30*E*t^3/(360-360*poisson^2) *poisson, 

E*t^3/ (360-360*poisson^2)/a/b* (8*a*2-8*poisson*a*2+40*b*2) , 
E*t^3/(360-360*poisson^2) /a/b* (-3*a-12*poisson*a«15*b^2/a), 

0, 

E*t^3/(360-360*poisson^2) /a/b* (-8*a^2«8*poisson*a^2«20*b^2) " 
E*t^3/(360-360*poisson^2) /a/b* (3*a-3*poisson*a-15*b^2/a), 

0, 

E*t^3/(360-360*poisson^2) /a/b* (2*a^2-2*poisson*a^2410*b^2) ; 
E*t^3/(360-360*poisson^2) /a/b* (21-6*poisson-15*b^2/a^2-15*a^2/b^2), 
E*t^3/(360-360*poisson^2) /a/b* (3*b-3*poisson*b-15*a^2/b), 
E*t^3/(360-360*poisson^2) /a/b* (-3*a«3*poisson*a«15*b^2/a), 
E*t^3/(360-360*poisson^2)/a/b* (-21«6*poisson*«15*b^2/a^2-30*a^2/b^2), 
E*t^3/(360-360*poisson^2) /a/b* (-3*b«3*poisson*b-30*a^2/b), 

E*t^3/ (360-360*poisson^2) /a/b* (-3*a-12*poisson*a«15*b^2/a), 

E*t^3/ (360-360*poisson^2) /a/b* (21-6*poisson*30*b^2/a^2430*a^2/b^2) , 
E*t^3/ (360-360*poisson^2) /a/b* (-3*b-12*poisson*b-30*a^2/b), 
E*t^3/(360-360*poisson^2) /a/b* (3*a«12*poisson*a«30*b^2/a), 
E*t^3/(360-360*poisson^2)/a/b* (-21«6*poisson-30*b^2/a^2415*a^2/b^2), 
E*t^3/(360-360*poisson^2)/a/b* (3*b«12*poisson*b-15*a^2/b), 

E*t^3/ (360-360*poisson^2) /a/b* (3*a-3*poisson*a«30*b^2/a) ; 
E*t^3/(360-360*poisson^2) /a/b* (-3*b«3*poisson*b«15*a^2/b), 

E*t^3/ (360-360*poisson^2) /a/b* (2*b^2-2*poisson*b^2410*a^2), 

0, 

E*t^3/ (360-360*poisson^2) /a/b* (3*b-3*poisson*b+30*a*2/b) , 
E*t*3/(360-360*poisson*2) /a/b* (-2*b^2«2*poisson*b^2420*a^2), 

0, 
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E*t^3/ (360-360*poisson^2) /a/b* (-3*b-12*poisson*b-30*a^2/b), 
E*t^3/ (360-360*poisson^2) /a/b* (8*b^2-8*poisson*b^2«40*a^2), 
-30*E*t^3/(360-360*poisson^2)*poisson, 
E*t^3/(360-360*poisson^2) /a/b* (3*b«12*poisson*b-15*a^2/b), 
E*t^3/ (360-360*poisson^2) /a/b* (-8*b^2«8*poisson*b^2420*a^2), 
0; 

E*t^3/ (360-360*poisson^2) /a/b* (3*a-3*poisson*a-15*b^2/a), 

0, 

E*t^3/(360-360*poisson^2) /a/b* (2*a^2-2*poisson*a^2«410*b^2), 
E*t^3/ (360-360*poisson^2) /a/b* (-3*a-12*poisson*as15*b^2/a), 
0, 

E*t^3/ (360-360*poisson^2)/a/b*(-8*a^248*poisson*a^2«420*b^2), 
E*t^3/(360-360*poisson^2) /a/b* (3*a«12*poisson*a«30*b^2/a), 
-30*E*t^3/(360-360*poisson^2)*poisson, 
E*t^3/(360-360*poisson^2) /a/b*(8*a^2-8*poisson*a^2440*b^2), 
E*t^3/(360-360*poisson^2) /a/b* (-3*a«3*poisson*a-30*b^2/a), 
0, 

E*t^3/ (360-360*poisson^2) /a/b* (-2*a^2«2*poisson*a^2«20*b^2); 
E*t^3/(360-360*poisson^2) /a/b* (-21«6*poisson«15*b^2/a^2-30*a^2/b^2), 
E*t^3/ (360-360*poisson^2) /a/b* (-3*b«3*poisson*b-30*a^2/b), 
E*t^3/ (360-360*poisson^2) /a/b* (3*a«12*poisson*a-15*b^2/a), 
E*t^3/ (360-360*poisson^2) /a/b* (21-6*poisson-15*b^2/a^2-15*a^2/b^2), 
E*t^3/ (360-360*poisson^2) /a/b* (3*b-3*poisson*b-15*a^2/b), 
E*t^3/(360-360*poisson^2) /a/b* (3*a-3*poisson*a-15*b^2/a), 
E*t^3/(360-360*poisson^2) /a/b* (-21«6*poisson-30*b^2/a^2415*a^2/b^2), 
E*t^3/ (360-360*poisson^2) /a/b* (3*b«12*poisson*b-15*a^2/b), 
E*t^3/(360-360*poisson^2) /a/b* (-3*a«3*poisson*a-30*b^2/a), 
E*t^3/ (360-360*poisson^2) /a/b* (21-6*poisson«30*b^2/a^2430*a^2/b^2), 
E*t^3/ (360-360*poisson^2) /a/b* (-3*b-12*poisson*b-30*a^2/b), 
E*t^3/(360-360*poisson^2) /a/b* (-3*a-12*poisson*a-30*b^2/a); 
E*t^3/(360-360*poisson^2) /a/b* (3*b-3*poisson*b+30*a*2/b), 
E*t^3/(360-360*poisson^2) /a/b* (-2*b*2+2*poisson*b*2+20*a*2), 
0, 

E*t^3/(360-360*poisson^2) /a/b* (-3*b+3*poisson*b+15*a^2/b), 
E*t^3/ (360-360*poisson^2) /a/b* (2*b^2-2*poisson*b^2«10*a^2), 
0, 

E*t^3/(360-360*poisson^2) /a/b* (3*b«12*poisson*b-15*a^2/b), 
E*t^3/(360-360*poisson^2) /a/b* (-8*b*2+8*poisson*b*2+20*a%2) , 
0, 

E*t^3/(360-360*poisson^2) /a/b* (-3*b-12*poisson*b-30*a^2/b), 
E*t^3/(360-360*poisson^2) /a/b* (8*b*2-8*poisson*b*2+40*a%2), 
30*E*t^3/(360-360*poisson^2)*poisson; 

E*t^3/ (360-360*poisson^2) /a/b* (3*a«12*poisson*a-15*b^2/a), 
0, 

E*t^3/(360-360*poisson^2) /a/b* (-8*a*2+8*poisson*a*2+20*b*2) , 
E*t^3/(360-360*poisson^2) /a/b* (-3*a+3*poisson*a+15*b*2/a), 
0, 
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E*t^3/(360-360*poisson^2) /a/b* (2*a^2-2*poisson*a^2«10*b^2), 

E*t^3/(360-360*poisson^2) /a/b* (3*a-3*poisson*a«30*b^2/a), 

0, 

E*t^3/ (360-360*poisson^2)/a/b* (-2*a*2+2*poisson*a*2+20*b*2) , 

E*t^3/(360-360*poisson^2) /a/b* (-3*a-12*poisson*a-30*b^2/a), 

30*E*t^3/(360-360*poisson^2)*poisson, 

E*t^3/(360-360*poisson^2) /a/b* (8*a^2-8*poisson*a^2«40*b^2)]; 

w-a*b*t*density; 

syms kx yt kxi yti real; 

пі=1/8* (Lekx*kxi) * (Leyt*yti)* (2ekx*Joci eyt*yti-kx^2-yt^2); 
ix=-1/8*btyti* (1+kx*kxi) * (Leyt*yti)* (1-yt^2) ; 

niy=1/8*a*kxi* (lekx*kxi)* (leyt*yti)* (1-kx^2) ; 

n(1)=subs (ni, (kxi,yti), (-1,-1)); 

n(2)-subs (nix, (kxi,yti),(-1,-1)); 

n(3)-subs (niy, {kxi yti}, (-1,-1)); 


n(4)=subs (ni, (kxi,yti), (1,-1)) ; 
n(5)-subs (nix, (kxi,yti), (1,-1)); 
n(6)=subs (niy, (kxi,yti),(1,-1)); 


n(7)-subs (ni, (kxi,yti),(1,1)); 
n(8)=subs (nix, (kxi,yti),(1,1)); 
n(9)-subs (niy, (kxi,yti), (1,1)) ; 


n(10)-subs (ni, (kxi,yti),(-1,1)); 
n(11)-subs (nix, (kxi,yti),(-1,1)); 
n(12)-subs (niy, (kxi,yti),(-1,1)); 


temp-n'*n; 

ml=int (temp, kx,-1,1); 
m=int (m1,yt,-1,1); 
m=m*w; 

m-double (m) ; 


分 别 使 用 上 述 MATLAB 程序 和 ANSYS 计算 结果 ， 并 将 其 列举 在 表 7.1 中 . 由 于 两 者 


使 用 了 不 同 的 单元 类 型 ， 所 以 计算 结果 稍 有 区 别 . 在 第 9 阶 频率 后 ， 出 现 了 ANSYS 计算 
结果 中 独 有 的 模 态 (在 表 中 已 经 除去 )， 这 是 由 于 两 种 单元 节点 自由 度 不 同 的 缘故 . 


表 7.1 一 边 固 支 方 板 的 频率 


模 态 阶 数 MATLAB 计算 结果 (Hz) | ANSYS(shell63 单元 ) 计 算 结果 (Hz) 


1 11.2078 11211 
2 27.4749 27.547 
3 68.8768 68.888 
4 87.7153 87.889 
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续 表 
模 态 阶 数 MATLAB 计算 结果 (Hz) ANSYS(shell63 单元 ) 计 算 结 果 (Hz) 
5 99.9788 100.40 
6 174.2138 175.80 
7 198.2866 197.93 
8 207.2652 207.68 
9 229.2561 230.16 
10 296.9568 300.13 
11 310.6423 і 314.65 
12 386.5587 385.50 
13 401.7931 401.37 
14 416.9259 418.14 
15 441.7086 450.04 


792 计算 7.7 节 中 介绍 壳 体 单元 的 单元 刚度 矩阵 


同 前 几 章 介绍 过 的 各 种 单元 一 样 ， 计 算 7.7 节 中 壳 体 单元 的 单元 刚度 矩阵 需要 完成 
式 (7-179) 的 积分 . 与 前 几 章 介绍 的 单元 不 同 的 是 ， 计 算式 (7-179) 中 BB 矩 阵 的 过 程 中 需要 求 
解 7" ， 即 雅 可 比 矩 阵 的 逆 . 在 这 里 ， 虽 然 雅 可 比 矩 阵 可 以 通过 符号 运算 推导 出 来 ， 但 
是 其 表达 式 已 经 相当 复杂 ， 再 通过 符号 运算 求 其 逆 是 不 可 行 的 . 因此 只 有 采用 数值 方法 ， 
在 高 斯 积分 的 各 积分 点 上 逐个 求 出 相应 的 数值 型 雅 可 比 矩 阵 ， 然 后 才 可 以 方便 地 求 得 其 逆 
ЖШ. 

在 下 面 的 程序 中 ， 采 用 了 在 如 n 和 方向 都 是 两 个 积分 点 的 缩减 积分 方案 . 


function [ek]-shellek(dyhm, jdzb, jdzb1,dybh) 


% dyhm: node connectivity for each element 
% jdzb: coordinate of the nodes in the top surface of element 
% jdzbl: coordinate of the nodes in the bottom surface of element 
% dybh: the number of element whose stiffness matrix is calculated in 
$ this time of invoking. 
temp=0.577350292; % value needed by Gauss integral 
gaosi=[ 1 1 1; 
1-1 1; 
-1 1 1; 
-1 = 114 
1 1-1; 
i <1 -1; 
- 1-4; 
-1 -1 -11; 
d-[.]; $ elastic matrix in 7.7-25. five order square matrix. 
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% Тїз value is determined by the character of material апа isn't given 
% in this example. 


ek=zeros (40); 

for i=1: 
for j 3 

v3i (i,j) =jdzb1 (dybh (dyhm, і), j) -jdzb(dybh (dyhm, i), j); 


templ-cross(v3i(i,:)',tempi); 
xv2i(i,:)=temp1/norm(temp1) ; 
templ=cross (xv2i(i,:),v3i(i,:)); 
xvli(i,:)stempl/norm(templ); 

end 

xv3isv3i/t; 


for gaosii-1:8 % begin of Gauss integral 
zbl=temp*gaosi (gaosii,1); 
zb2-temp*gaosi (gaosii,2); 


zb3=temp*gaosi (gaosii,3); 


ni(1)=1/4* (1«zb1) * (1+zb2) * (zbl+zb2-1) ; 
ni(2)21/4*(1-zb1)*(1«2b2)*(-zbl«zb2-1); 
пі (3) =1/4* (1-zb1)*(1-zb2)*(-zbl-zb2-1); 
пі (4) =1/4* (1+201) * (1-22) * (zb1-zb2-1); 
пі (5) =1/2* (1-zb1*2) *(1+202); 

пі (6) =1/2* (1-zb1)*(1-2b2^2); 

пі (7) =1/2* (1-zb1*2) * (1-22); 

пі (8) =1/2* (1+201) * (1-202^2); 


v3=ni (1)*v3i (1, +) '+пї (2) *v3i (2, :) «ni (3) *v3i (3, :) '+п1 (4) *v3i (4, :) ' «ni (5) 
*v3i(5,:)'«ni(6)*v3i(6,:)'«ni(7)*v3i (7,:) sni (8) *v3i (8, :) '; 

templ-cross(v3,tempi'); 

tn2-sqrt (templ (1) ^2«templ(2)^2«templ(3)^2); 

xv2-templ/tn2; 

templ=cross (xv2, v3); 

tnl=sqrt (бетр1 (1) ^2«templ (2)^2«temp1(3)^2); 

xvi-templ/tnl; 


tn3-sqrt (v3 (1) *2+v3 (2)^2«v3(3) ^2) ; 
xv3=v3/tn3; 
theta-[xv1,xv2,xv3]; 
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zmtemp (i,j)=(jdzbl (dybh (dyhm, i) , j) +jdzb(dybh (dyhm, i) , 3) ) /2; 
end 
end 


рпі (1,1) =1/4* (1+zb2) * (zb1+zb2-1) + (1/4«1/4*zb1)* (1«zb2); 
рпі (1,2) =(1/4+1/4*zb1) * (zb1+zb2-1) + (1/4+1/4*21) * (1+zb2) 7 
pni(1,3)=0; 

рпі (2,1) =-1/4* (1+zb2) * (-zb1+zb2-1) - (1/4-1/4*201) * (1+zb2) ; 
pni(2,2)=(1/4-1/4*zb1) * (-zbl«zb2-1) + (1/4-1/4*201) * (1«zb2) ; 
pni(2,3)=0; 

рпі (3,1) =-1/4* (1-zb2) * (-zb1-zb2-1) - (1/4-1/4*zb1)*(1-zb2); 
pni (3,2) =- (1/4-1/4*zb1)* (-zbl-zb2-1)-(1/4-1/4*zb1)*(1-zb2); 
pni(3,3)=0; 

рпі (4,1) =1/4* (1-zb2) * (zb1-zb2-1) +(1/4+1/4*zb1) * (1-2b2); 
рпі (4,2) =-(1/4+1/4*zb1) * (zbl-zb2-1) -(1/4+1/4*zb1) * (1-zb2) ; 
pni (4,3) =0; 

pni(5,1)--zbl*(1«zb2); 


рпі (5,2)-1/2-1/2*zb1^ 
рпі (5,3)=0; 

рпі (6,1)--1/241/2*zb2^2; 

рпі (6,2) --2* (1/2-1/2*zb1)*zb2; 
рпі (6,3) =0; 

рпі (7,1) =-261* (1-22); 

рпі (7,2) =-1/2+1/2*2Ь1^2; 

рпі (7,3 


рпі (8,1) =1/2-1/2*22^2; 
pni (8,2) =-2*(1/2+1/2*zb1) *zb2; 
рпі (8,3)=0; 


xlezmtemp(1,1); 
ylezmtemp(1,2); 
zl=zmtemp (1,3); 
x2=zmtemp (2,1); 
y2=zmtemp (2,2); 
z2=zmtemp (2,3); 
x3=zmtemp (3,1); 


y4=zmtemp (4,2); 
z4=zmtemp (4,3); 
xS=zmtemp (5,1); 
yS=zmtemp (5,2); 
z5=zmtemp (5,3); 
x6-zmtemp (6,1); 
y6-zmtemp(6,2); 
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z6=zmtemp(6,3); 
x7=zmtemp(7,1); 
y7=zmtemp(7,2); 
mtemp(7,3); 
mtemp(8,1); 
y8-zmtemp(8,2); 
z8-zmtemp(8,3); 


x 


dx1-v3i(1,1); 
dy1-v3i(1,2); 
dz1-v3i (1,3); 
dx2-v3i(2,1); 
dy2-v3i(2,2); 
dz2-v3i(2,3); 
dx3-v3i (3,1); 
dy3-v3i(3,2); 
dz3-v3i (3,3); 
dx4-v3i (4,1); 
dy4-v3i(4,2); 
dz4-v3i (4,3); 
dx5-v3i(5,1); 
dy5=v3i (5,2); 
dz5=v3i (5,3); 
dx6-v3i (6,1); 
dy6=v3i (6,2); 
dz6-v3i(6,3); 
dx7-v3i (7,1); 
dy7=v3i (7,2); 
dz7-v3i(7,3); 
dx8-v3i(8,1); 
dy8-v3i(8,2); 
dz8-v3i(8,3); 


јсетр (1,1) =1/4* (1«zb2) * (zb1«zb2-1) *x1+(1/4+1/4*zb1) *(1«zb2)*x1- 

1/4* (1«zb2) * (-zbl«zb2-1) *x2- (1/4-1/4*zb1)* (1«zb2) *x2-1/4* (1-zb2) * (-zb1- 
202-1) *x3- (1/4-1/4*zb1) * (1-zb2) *x3+1/4* (1-2b2) * (zb1-zb2- 

1) *x4+(1/4+1/4*zb1) * (1-zb2) *x4-zb1* (1«zb2) *x5-1/2* (1-zb2^2) *x6-zbl*(1- 
202) *x7«1/2* (1-zb2^2) *x8+1/8*zb3* (1«zb2) * (zb1+zb2- 

1) *dx1+1/2*zb3* (1/4«1/4*zb1) * (1«zb2) *dx1-1/8*zb3* (1«2b2) * (-zbl«zb2- 
1)*dx2-1/2*zb3* (1/4-1/4*zb1) * (1+zb2) *dx2-1/8*zb3* (1-2b2) * (-zbl-zb2- 

1) *dx3-1/2*zb3* (1/4-1/4*zb1)* (1-zb2) *dx3«1/8*zb3* (1-zb2) * (zb1-zb2- 

1) *dx4+1/2*zb3* (1/4«1/4*zb1) * (1-zb2) *dx4-1/2*zb3*zb1* (1«zb2) *dx5- 
1/4*zb3* (1-zb2^2) *dx6-1/2*zb3*zb1* (1-zb2) *dx7+1/4*zb3* (1-2b2^2) *dx8; 


jtemp(1,2)-1/4* (1«zb2) * (zbl«zb2-1) *y1+(1/4+1/4*zb1) *(1«zb2)*y1- 
1/4* (1«zb2) * (-zb1+zb2-1) *y2- (1/4-1/4*zb1) * (1+zb2) *y2-1/4* (1-zb2) * (-zb1- 
202-1) *у3- (1/4-1/4*201) * (1-zb2) *y3+1/4* (1-zb2) * (zb1-zb2- 
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1) *y4+(1/4+1/4*zb1) * (1-zb2) *y4-zb1* (1+zb2) *y5-1/2* (1-zb2^2)*y6-zbl* (1- 
zb2) *y7+1/2* (1-2b2^2) *y8+1/8*zb3* (1+zb2) * (zb1+zb2- 

1) *dy1+1/2*zb3* (1/4+1/4*zb1) * (1«zb2) *dy1-1/8*zb3* (1+zb2) *(-zbl«zb2- 

1) *dy2-1/2*zb3* (1/4-1/4*zb1) * (1«zb2) *dy2-1/8*zb3* (1-zb2) * (-zbl-zb2- 

1) *dy3-1/2*zb3* (1/4-1/4*zb1)* (1-zb2) *dy3+1/8*zb3* (1-zb2) * (zb1-zb2- 
1)*dy4«1/2*zb3* (1/4«1/4*zb1) * (1-zb2) *dy4-1/2*zb3*zb1* (1«zb2) *dy5- 
1/4*zb3* (1-202^2) *dy6-1/2*zb3*zb1* (1-zb2) *dy7«1/4*zb3* (1-zb2*2) *dy8; 


jtemp(1,3)-1/4* (1«zb2) * (zb1«zb2-1) *z1« (1/4«1/4*zb1) *(1«zb2) *z1- 

1/4* (1«zb2) * (-zbl«zb2-1) *z2- (1/4-1/4*zb1)* (1«2b2) *z2-1/4* (1-zb2) * (-zb1- 
202-1) *z3-(1/4-1/4*zb1) * (1-zb2) *z3«1/4* (1-zb2) * (zbl-zb2- 

1)*z4« (1/4«1/4*2b1) * (1-zb2) *z4-zb1* (1«zb2) *z5-1/2* (1-zb2^2) *z6-zb1* (1- 
202) *27+1/2* (1-zb2^2) *z8«1/8*zb3* (1«zb2) * (zbl«zb2- 

1)*dz1«1/2*zb3* (1/4+1/4*zb1) * (1+202) *dz1-1/8*zb3* (1«zb2) * (-zbl«zb2- 
1)*dz2-1/2*zb3* (1/4-1/4*zb1) * (1«zb2) *dz2-1/8*zb3* (1-zb2) * (-zb1-zb2- 
1)*dz3-1/2*zb3* (1/4-1/4*zb1) * (1-zb2) *dz3+1/8*zb3* (1-2b2) * (zb1-zb2- 
1)*dz4«1/2*zb3* (1/4+1/4*201) * (1-zb2) *dz4-1/2*zb3*zb1* (1«2b2) *dz5- 
1/4*zb3* (1-2b2^2) *dz6-1/2*zb3*zb1* (1-zb2) *dz7«1/4*zb3* (1-2b2^2) *dz8; 


jtemp(2,1)-(1/4«1/4*zb1)* (zbl«zb2-1) *x1«(1/4«1/4*zb1) * (1«zb2) *х1+(1/4- 
1/4*zb1)* (-zb1+zb2-1) *x2+(1/4-1/4*zb1) * (1+zb2) *x2- (1/4-1/4*zb1)* (-zb1- 
202-1) *x3- (1/4-1/4*zb1) * (1-zb2) *x3- (1/4«1/4*zb1)* (zb1-zb2-1) *x4- 
(1/4«1/4*zb1) * (1-zb2) *x4« (1/2-1/2*2b1^2) *x5-2* (1/2-1/2*zb1) *zb2*x6- (1/2- 
1/2*zb1^2) *x7-2* (1/2+1/2*zb1) *zb2*x8+1/2*zb3* (1/4«1/4*zb1) * (Zb1«zb2- 
1) *dx1«1/2*zb3* (1/4«1/4*zb1) * (1+202) *dx1«1/2*zb3* (1/4-1/4*zb1)*(- 
201+2р2-1) *dx2+1/2*zb3* (1/4-1/4*zb1)* (1«zb2) *dx2-1/2*zb3* (1/4- 
1/4*zb1)*(-zbl-zb2-1)*dx3-1/2*zb3* (1/4-1/4*zb1)*(1-zb2) *dx3- 

1/2*zb3* (1/4+1/4*zb1) * (zb1-zb2-1) *dx4-1/2*zb3* (1/4+1/4*zb1) *(1- 
zb2)*dx4+1/2*zb3* (1/2-1/2*zb1^2) *dx5-zb3* (1/2-1/2*zb1) *zb2*dx6- 
1/2*zb3* (1/2-1/2*zb1^2) *dx7-zb3* (1/2«1/2*zb1) *zb2*dx8; 


jtemp(2,2)=(1/4+1/4*zb1) * (zb1+zb2-1) *y1«(1/4«1/4*zb1) * (1«zb2) *y1«(1/4- 
1/4*zb1)* (-zbl+zb2-1) *y2+(1/4-1/4*zb1) * (1«zb2) *y2- (1/4-1/4*zb1)*(-zb1- 
zb2-1)*y3-(1/4-1/4*zb1)* (1-zb2) *y3- (1/4«1/4*zb1) * (zb1-zb2-1) *y4- 
(1/4«1/4*zb1)* (1-zb2) *y4« (1/2-1/2*zb1^2) *y5-2* (1/2-1/2*zb1) *zb2*y6- (1/2- 
1/2*zb1^2) *y7-2* (1/2«1/2*zb1) *zb2*y8+1/2*zb3* (1/4«1/4*zb1) * (zbl«zb2- 
1) *dy1«1/2*zb3* (1/4+1/4*zb1) * (1«zb2) *dy1+1/2*zb3* (1/4-1/4*zb1) *(- 
zb1+zb2-1) *dy2+1/2*zb3* (1/4-1/4*zb1) * (1«2b2) *dy2-1/2*zb3* (1/4- 
1/4*zb1)*(-zbl-zb2-1)*dy3-1/2*zb3* (1/4-1/4*zb1)* (1-zb2) *dy3- 

1/2*zb3* (1/4«1/4*zb1)* (zb1-zb2-1) *dy4-1/2*2b3* (1/4«1/4*zb1) * (1- 

202) *dy4«1/2*zb3* (1/2-1/2*zb1^2) *dy5-zb3* (1/2-1/2*zb1) *zb2*dy6- 
1/2*zb3* (1/2-1/2*zb1^2) *dy7-zb3* (1/2+1/2*zb1) *zb2*dy8; 


jtemp(2,3)-(1/441/4*zb1) * (zb1«zb2-1) *z1« (1/4«1/4*zb1)* (1«zb2) *z1« (1/4- 
1/4*zb1)* (-zblezb2-1) *z2« (1/4-1/4*zb1)* (1«zb2) *z2-(1/4-1/4*zb1) *(-zb1- 
zb2-1) *z3- (1/4-1/4*zb1) * (1-zb2) *z3- (1/4«1/4*zb1) * (zb1-zb2-1) *z4- 
(1/4«1/4*zb1) * (1-zb2) *z4« (1/2-1/2*zb1^2) *z5-2* (1/2-1/2*zb1) *zb2*z6- (1/2- 
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1/2*201^2) *27-2* (1/2+1/2*zb1) *202*28+1/2*203* (1/4«1/4*zb1)* (zb1+zb2- 
1) *dz1+1/2*zb3* (1/4+1/4*zb1) * (1«zb2) *dz1«1/2*zb3* (1/4-1/4*zb1)*(- 
zb1+zb2-1) *dz2+1/2*zb3* (1/4-1/4*zb1) * (1+zb2) *dz2-1/2*zb3* (1/4- 
1/4*zb1) * (-201-262-1) *dz3-1/2*zb3* (1/4-1/4*zb1) * (1-zb2) *dz3- 
1/2*zb3* (1/4«1/4*zb1) * (zb1-zb2-1) *dz4-1/2*zb3* (1/4+1/4*zb1) * (1- 

202) *dz4«1/2*zb3* (1/2-1/2*zb1*2) *dz5-zb3* (1/2-1/2*zb1) *zb2*dz6- 
1/2*zb3* (1/2-1/2*zb1^2) *dz7-zb3* (1/2+1/2*zb1) *zb2*dz8; 


jtemp(3,1)-1/2* (1/4«1/4*zb1) * (1«zb2) * (zb1«zb2-1) *dx1«1/2* (1/4- 


1/4*zb1) * (1«2b2) * (-zb1«zb2-1) *dx2+1/2* (1/4-1/4*zb1) * (1-zb2) * (-zb1-zb2- 


1) *dx3+1/2* (1/4«1/4*zb1) * (1-zb2) * (zb1-zb2-1) *dx4«1/2* (1/2- 
1/2*zb1^2)* (1«zb2) *dx5«1/2* (1/2-1/2*zb1) * (1-zb2^2) *dx6«1/2* (1/2- 
1/2*zb1^2)* (1-zb2) *dx7+1/2* (1/2+1/2*zb1) * (1-zb2*2) *dx8; 


jtemp (3,2) =1/2* (1/4«1/4*zb1) * (1«zb2) * (zbl+zb2-1) *dy1«1/2*(1/4- 


1/4*zb1)* (1«zb2)* (-zbl«zb2-1) *dy2«1/2* (1/4-1/4*zb1)* (1-zb2) * (-zb1-zb2- 


1) *dy3+1/2* (1/4«1/4*zb1) * (1-2b2) * (zb1-zb2-1) *dy4«1/2* (1/2- 
1/2*zb1^2) * (1«zb2) *dy5+1/2* (1/2-1/2*zb1) * (1-zb2^2) *dy6«1/2* (1/2- 
1/2*201^2) * (1-zb2) *dy7+1/2* (1/2«1/2*zb1) * (1-zb2*2) *dy8; 


jtemp (3,3) =1/2* (1/4«1/4*zb1) * (1«zb2) * (zb1«zb2-1) *dz1«1/2* (1/4- 


1/4*zb1) * (1«zb2) * (-zbl1«zb2-1) *dz2«1/2* (1/4-1/4*zb1)* (1-zb2)* (-zbl-zb2- 


1)*dz341/2* (1/4«1/4*zb1) * (1-zb2) * (zb1-zb2-1) *dz4+1/2* (1/2- 
1/2*zb1^2)* (1«zb2) *dz5+1/2* (1/2-1/2*zb1) * (1-zb2^2) *dz6«1/2* (1/2- 
1/2*zb1^2)* (1-2b2) *dz7+1/2* (1/2+1/2*zb1) * (1-zb2^2) *dz8; 
invjeinv(jtemp); 
dnisinvj*(pni(1,1) pni(2,1) pni(3,1) pni(4,1) pni(5,1) pni(6,1) 
pni(7,1) pni(8,1); 
pni(1,2) pni(2,2) pni(3,2) pni(4,2) pni(5,2) pni(6,2) 
pni(7,2) pni(8,2); 
0000000 0); 
dami=invj*(zb3*pni(1,1) zb3*pni(2,1) zb3*pni(3,1) zb3*pni (4,1) 
zb3*pni(5,1) zb3*pni(6,1) zb3*pni(7,1) zb3*pni(8,1); 
zb3*pni(1,2) zb3*pni(2,2) zb3*pni(3,2) zb3*pni(4,2) 
zb3*pni(5,2) zb3*pni(6,2) zb3*pni(7,2) zb3*pni(8,2); 
ni(1) ni(2) ni(3) ni(4) пі(5) ni(6) ni(7) ni(8)]; 


for bi-1:8 
for s-1:3 
alpha(s)-theta(1,s)*dni (1,bi)«theta(2,s) *dni (2,bi) 
*theta(3,s) *dni (3,bi); 

beta (5) = (Сћеса (1,5) «ті (1,bi)«theta(2,s)*dmi (2,bi) 
+theta(3,s) *dmi (3, bi) )*t/2; 

gama (s) -theta (1,5) *ху11 (bi,1)«theta(2,s) *xv1li (bi,2) 
*theta(3,s) *xvli(bi,3); 

1md(s)-theta(1,s)*xv2i (bi,1)«theta(2,s) *xv2i (bi,2) 
*theta(3,s)*xv2i (bi,3); 
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епа 
btemp(:,:,bi)=[theta(1,1)*alpha(1) theta(2,1)*alpha(1) 
theta(3,1)*alpha(1) beta(1)*gama(1) beta(1)*1md(1); 
theta(1,2)*alpha(2) theta(2,2)*alpha(2) 
theta(3,2)*alpha(2) beta(2)*gama(2) beta(2)*1md(2); 
theta(1,1)*alpha(2)«theta(1,2)*alpha(1) 
theta (2,1) *alpha(2)+theta (2,2) *alpha(1) 
theta (3,1) *alpha(2)+theta (3,2) *alpha(1) 
beta (1) *дата (2) +реса (2) *gama (1) 
реса (1) *1md(2) +beta(2)*1md(1); 
theta(1,2) *alpha(3) «theta (1,3) *alpha(2) 
theta(2,2) *а1рћа (3) «theta(2,3) *alpha(2) 
theta (3,2) *а1рћа (3) «theta (3,3) *alpha(2) 
beta(2) *gama (3) «beta (3) *gama (2) 
beta (2) *1md(3) «beta (3) *1md(2) ; 
theta(1,3) *а1рћа (1) +сћеба (1,1) *а1рһа (3) 
theta (2,3) *а1рһа (1) +ћеба(2,1) *а1рһа (3) 
theta (3,3) *а1рһа (1) +0ћеба (3,1) *alpha(3) 
Беса (3) *gama (1) «beta (1) *gama (3) 
реса (3) *1md(1) +реба (1) *104(3)]; 
епа 
b=[btemp(:,:,1) btemp(:,:,2) btemp(:,:,3) btemp(:,:,4) btemp(: 
btemp(:,:,6) btemp(:,:,7) btemp(:,:,8)]; 
et (jtemp 
'*d*b*ádjt; 
ek=ek+tk; 
end %end of Gauss integral 
ek=tril (ek) +tril(ek) '-diag(diag(ek,0)); 
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8.1 ”结构 动力 学 优化 设计 


有 关 统 计 表 明 ， 在 飞行 器 所 发 生 的 重大 事故 中 ，40% 与 振动 有 关 . 我 国 多 个 型 号 的 飞 
机 与 航天 器 在 研制 过 程 中 也 均 遇 到 过 许多 严重 的 振动 问题 . 对 飞机 而 言 ， 着 陆 、 滑 跑 和 起 
飞 过程 的 地 面 载荷 、 大 气 率 流 引起 的 突 发 载荷 、 测 流 气动 载荷 ， 发 动机 嗓 声 激励 以 及 气流 
分 离 造成 的 拌 振 载荷 都 是 动 载荷 . 所 以 说 ， 在 一 定 程度 上 ， 飞 机 性 能 与 服役 寿命 依赖 于 飞 
机 结构 的 动力 学 性 能 . 不 言 而 喻 ， 为 了 改善 此 类 结构 和 系统 的 动态 特性 ， 以 保证 它们 正 
常 、 可 靠 地 工作 ， 必 须 进行 结构 动力 学 设计 . 事实 上 ， 在 动力 学 优化 设计 问题 提出 之 前 ， 
结构 在 传统 上 都 是 由 先 验 知识 或 静 力 问题 优化 确定 ， 然 后 再 用 动力 学 试验 或 验算 对 其 修 
改 ， 这 其 实 是 一 种 落后 、 费 时 且 欠 优 的 设计 方法 . 结构 优化 的 目的 在 于 以 最 少 的 材料 、 最 
低 的 造价 和 最 简单 的 工艺 来 实现 结构 性 能 最 佳 . 结构 优化 最 初 采用 经 典 解析 方法 求解 ， 所 
用 方法 是 变 分 法 或 微分 法 . 对 于 无 约束 优化 问题 ， 利 用 Euler-Lagrange 方程 构造 极 值 存在 
的 充 要 条 件 ， 然 后 用 梯度 向 量 搜索 优化 方向 ， 约 束 优化 问题 则 采用 Lagrange 乘 子 构成 畏 
助 函数 来 考虑 约束 条 件 的 影响 ,虽然 解析 方法 可 以 解决 一 些 简单 构件 ， 如 检 架 的 优化 问 
题 ， 但 涉及 复杂 的 数学 推导 阻碍 了 它 在 实际 结构 中 的 应 用 . 近年 来 ， 计 算 机 技术 及 其 在 结 
构 分 析 中 的 普遍 应 用 ， 促 进 了 结构 优化 数值 方法 的 发 展 . 其 中 ， 数 学 规划 法 (MP 法 ) 和 优化 
准则 法 (OC 法 ) 是 被 广泛 采用 的 两 种 . 近年 来 ， 仿 生 算法 也 逐渐 得 到 了 应 用 和 发 展 . 显然 ， 
在 一 定 的 激励 环境 下 ， 结 构 尺寸 、 形 状 、 材 料 与 拓扑 构 形 控制 着 结构 的 振动 响应 水 平 . 因 
此 ， 在 给 定 动力 学 约束 条 件 下 ， 进 行 结构 动力 学 优化 设计 ，“ 主 动 ” 地 确定 结构 最 优 的 动 
力 特性 (也 可 同时 满足 静 力 问题 的 多 种 约束 ) 成 为 结构 优化 设计 领域 近年 来 的 一 个 活跃 的 研 
究 分 支 . 

结构 优化 设计 可 以 根据 设计 变量 的 类 型 划分 为 不 同 的 层次 ， 在 给 定 结构 的 类 型 、 材 
料 、 布 局 拓扑 和 外 形 几 何 的 情况 下 ， 优 化 各 个 组 成 构件 的 截面 尺寸 或 截面 性 质 (弹性 模 
量 )， 使 结构 性 能 最 佳 ， 通 常 称 为 尺寸 优化 ， 它 是 结构 优化 设计 中 的 最 低层 次 . 如 果 让 结构 
的 几何 外 形 也 可 以 变化 ， 例 如 ， 把 顶 架 和 刚 架 的 节点 位 置 或 连续 体 边界 形状 的 几何 参数 作 
为 设计 变量 ， 优 化 又 进入 了 一 个 较 高 的 层次 ， 即 所 谓 的 结构 形状 优化 . BETTE SOE EAR 
节点 联结 关系 或 连续 体 结构 的 布局 进行 优化 ， 则 优化 达到 更 高 的 层次 ， 即 结构 的 拓扑 优化 . 
显然 ， 随 着 结构 优化 层次 的 提高 ， 其 难度 也 越 来 越 大 ， 然 而 目标 (如 重量 ) 上 的 优化 效益 亦 
越 大 . 


8.1.1 优化 问题 基本 描述 
通常 ， 结 构 动力 学 优化 设计 问题 可 表述 为 
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minimize (or) maximize f(x) 


h(x)=0 i=1,2,--,p _ 
= awa jl ea 


stb: f(x) Н: h(x) g (x) 为 第 ;个 等 式 约束 函数 和 第 j 个 不 等 式 约束 函 
Bes p Ag 为 其 相应 约束 函数 的 数目 ，x 是 设计 变量 矢量 . 
8.1.2 动力 学 尺寸 优化 

1. 空间 检 架 固 频 极 值 的 求解 


1) 求解 算法 
极 大 值 的 求解 过 程 由 以 下 步骤 完成 
тах 4=4(A) . 
st 420 (¢=1,2,---,N,,) (8-2) 


式 中 :4 为 结构 设计 变量 ; N。 为 可 优化 的 设计 变量 的 个 数 . 
用 最 大 下 降 速率 法 (SDM)， 由 初始 点 AP FR БЕ 83840, HE URI 4 & JE 
大 点 
4=4 +aB, (8-3) 
其 中 
B,-9 4/04, (8-4) 
a Jte B - (B, B, By ) 方 向 上 的 迭代 步 长 ， 可 由 下 式 得 到 
aK, aM 
e (tal 
pa AA A (8-5) 
е'ме 
RP, ФАУНЕ. didi Ф'МФ =65,， 则 式 (8-5) 变 为 
-gM 
В,=-Ф E Ale 
对 于 传统 SDM，a 是 由 最 小 (4+aB) a > 0 їй }Н@Ж l B 00k URGE RT. 由 于 
目标 是 固有 频率 ， 必 须 进行 模 态 分 析 : 为 省 机 时 ,将 式 (8-3) 改 为 


(8-6) 


A = А? +оВ, @=1,2,-,М„) (8-7) 
其 中 
B=B/VB +В! E (8-8) 
cc=a/m (8-9) 
s=ma[ 2) MB <0, (=12,-..N, (8-10) 


TU, 为 满足 om >1 的 一 个 正 权 系数 ， 由 迭代 过 程 确定 ， 式 (8-8) 用 来 正则 化 优化 方向 ， 
而 式 (8-9) 和 式 (8-10) 分 别 用 来 确定 步 长 大 小 和 确保 结构 修改 实现 . 
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算法 近代 终止 应 满足 的 所 有 条 件 为 
A -x|ss (8-11) 

Biss (71,2, N,) (8-12) 

We -4|s5 (8-13) 


若 式 (8-11) 与 式 (8-12) 得 到 满足 ， 则 相应 固 频 达 到 其 最 大 值 ， 而 式 (8-13) 得 到 满足 ， 则 
可 以 找到 设计 变量 的 一 个 设计 范围 ， 在 此 范围 内 ， 相 应 固 频 达 到 极 大 值 ，a, 、e, Ale, 是 事 
先 由 工程 精度 要 求 确定 的 误差 控制 量 . 对 于 极 小 值 的 求解 过 程 ， 式 (8-6) 相 应 变 为 : 
[әк ‚әм 
В,=Ф Е Ae (8-14) 
2) 数值 算 例 
CA 8.1】 如 图 8.1 所 示 的 平面 二 杆 梅 架 ， 弹 性 模 量 已 =2.1x10"Pa ， 质 量 密度 
P=78x10' kg/m’. 杆 O 和 杆 @ 的 初始 横 截 面积 分 别 为 sm? 和 Som? . 利用 所 提出 的 算法 求 


解 第 一 、 第 二 阶 特征 值 的 极 大 值 的 过 程 分 别 如 图 8.2 和 图 8.3 所 示 . 


800 cm 
° 
5 
š 
@ 
图 8.1 PHR 
2 P 


Example 8.1 
$ to seek the maximal value of the first natural frequency for plane 2-bar truss 


A0=[5 8]; % initial cross-section area 

v-ones (2,1); 

к=1; 

flag=1; 

D(1)=0; 

BO=5; 

while flag 
m=3.12*A0(1)+3.9*A0(2); 

M=[m 0;0 m]; 

k1-375*A0(1) 4192*A0(2) ; 

k2-144*A0 (2) ; 

k3-108*A0(2); 
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К=7.0е5* [к1 k2;k2 k3]; 

[V,D1]=eig(K,M); % compute eigenvalue and eigenvector 
(lambda, k4]=sort (diag(real((D1)))); 

V=real(V(:,k4)); 

Factor-diag(V'*M*V); 


Vnorm=V*inv (sqrt (diag(Factor))); % normalize eigenvector 
freq=sqrt (lambda) / (2*pi) ; 

А0=[1 1]; 

for i-1:2 

m=3.12*A0(1)+3.9*A0(2); 

M=[m 0;0 m]; 


k1-375*A0 (1) 4192*A0 (2) ; 
k2-144*A0(2) ; 
k3-108*A0(2) ; 
.бе5*[к1 k2;k2 k3]; 
v(i)-Vnorm(:,1)'*(K-lambda(1)*M)*Vnorm(:,1); — $ sensitivity analysis 
end 
sum-0.0; 
:2 
sum=sum+v(i)*2; 
end 
sum-sqrt (sum) ; 
for i-1:2 
v(i)=-v(i) /sum; 
n=0; 
if v(i)<0 
n=n+1; N 
cO(n)=A0(i)/v(i); 
ena 
end 


for i 


cOmax=max (c0) ; 
BscOmax/B0; 


for i-1:2 
А(1) =А0 (1) +В*у(і); 
епа 
А0=А; 
уб=у; 


=К+1; 
D(k) -lambda (1) 
epilson- (abs (D(k)-D(k-1)))/D(k) ; 


if epilson<=1e-5 
flag-0; 

else 
flag=1; 
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епа 
епа 


plot(D(2:k),'--*') 
х1аре1 (' AH) 
ylabel ('# Е (/5^2) ') 


10 15 20 25 30 35 40 
жок 


图 8.2 第 一 阶 频率 极 大 值 的 选 代 过 程 图 8.3 第 二 阶 频率 极 大 值 的 迭代 过 程 


2. 析 架 动力 学 尺寸 优化 

СИ 821 数值 算 例 . 如 图 8.4 所 示 的 空间 72 ЖЕНГЕ, ЕВЕ Е -2.1x10" Pa, Ж 
ЖЕЛЕ р =7.8x10° kg/m’. 在 节点 20 的 x 方向 施加 一 大 小 为 50 000N 的 力 . 约束 条 件 为 : 
结构 的 基 频 约束 要 求 基 频 不 小 于 100Hz ， 应 力 约束 要 求 每 个 单元 的 应 力 不 大 于 
173.2MPa ， 静 位 移 约束 为 节点 20 的 x 方向 的 位 移 小 于 0.001m. 优化 的 目的 是 在 满足 约束 
的 前 提 下 最 小 结构 的 质量 . МЮ s БЕ КОЖЕ PEST] 
$ = {0.774, 1.355, 2.142, 3.348, 4.632, 6.542, 7.742, 9.032, 10.839, 12.671, 14.581, 21.483, 
34.839, 44.516, 52.903, 60.258}ст? . 10 次 随机 运行 的 优化 结果 见 表 8.1. 


表 8.1 空间 72 杆 析 架 优化 结果 


次 数 质量 (kg 


467.9667 
477.1802 
| 477.0647 
480.1065 
| 459.0711 


460.6526 
488.9148 


e |a fa |o fo | 


m 
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续 表 
次 数 质量 (kg) 
8 475.1115 
9 477.4006 
10 467.7001 


Ex 8.2 
$ This program is used to optimize cross-section areas of 

% the space 72-bar truss based on genetic algorithm 
% 

% 


% 
LENGTH=4; %the chromosome length of design variable 
gan=72; the number of gan 
CHROMLENGTH-LENGTH*gan ' ; $totle length of chromosome 
PopSize-400; Spopulation size 
Pc-0.8; Sprobability of crossover 
Pm-0.02; probability of mutation 
penal-100 %сһе initial penalty 


$---- 


$ Definition of data structure 


for loopi-l: 
for loopj-1:CHROMLENGTH 
populationchrom(loopi,100pj)-0.0; 
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end 
епа 
for loopi 


:CHROMLENGTH 


for loopj 


bestworstchrom(loopi,1loopj)-0.0; 


end 
end 
фса 
% Begin the main program 


populationchrom-GenerateInitialPopulation (PopSize, CHROMLENGTH, LENGTH, дап); 
populationfitness-CalculateObjectValue (populationchrom, LENGTH, PopSize, gan, 
penal); 

bestworstchrom=FindBestAndWorst Individual (populat ionchrom, populat ionfitness, 
PopSize, bestworstchrom) ; 

bestworstchrom(3,:)=bestworstchrom(1,:); 


itercri=1; 
generation=0; 
while itercri 


populat ionchrom=Generat eNext Population (PopSize, populat ionchrom, CHROMLENG 
TH, LENGTH, Pc, Pm, populationfitness) ; 
populationfitness-CalculateObjectValue (populationchrom, LENGTH, PopSize, 
gan,penal); bestworstchrom=FindBestAndWorst Individual (populationchrom, 
populationfitness, PopSize, bestworstchrom) ; 
%----output the result of current population---------- 
for i=1:3 
area-Decode (bestworstchrom(i,:),LENGTH, дап); 

[W, dispmax, stressmax, frequency] =Trusssizeopt (area); 

C=VALUE (W, dispmax, st ressmax, frequency, penal); 

bestworstfitness(i)-C; 


end 


if bestworstfitness(1) » bestworstfitness(3) 
bestworstchrom(3, :)=bestworstchrom(1 


end 
area-Decode (bestworstchrom(3, :) , LENGTH, gan) ; 
[W, dispmax, stressmax, frequency 
sumfitness-0.0; 

PopSize 

sumfitness-sumfitness«populationfitness (i); 


-Trusssizeopt (area) 


for 


end 
meanfitness- (sumfitness-min (populat ionfitness) +bestworst fitness (3) ) /PopSize; 
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generation=generation+1 

maxfitdata (generation) =bestworst fitness (3); 
meanfitdata (generation) =meanfitness; 

Edata (generation) = 


if generation>50 
hl-abs (Edata (generation) -Edata (generation-50) ) /Edata (generation); 
if hl«le-4& frequency»-80&stressmax«-173.2e6&dispmax«-1e-3 
itercri-0; 
else 
itereri=1; 
end 
end 
if penal>= 
penal-penal/2; 
end 


function populationchrom-GenerateInitialPopulation (PopSize,CHROMLENGTH, 
LENGTH, gan) 


PopSize 
for loopj-1: (LENGTH*gan) 
if rand «-0.5 
populationchrom(loopi, loopj)=1; 
else 
populationchrom(loopi, loopj) =0; 
end 
end 
end 


function 

populat ionfitness=CalculateObject Value (populationchrom, LENGTH, PopSize,gan, 
penal) 

$- 


for loopi-1:PopSize 
area-Decode (populationchrom, LENGTH, gan) ; 
[W, dispmax, stressmax, frequency]-Trusssizeopt (area); 
Cv-VALUE (W, dispmax, stressmax, frequency, penal); 
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populationfitness (loopi) =Cv; 


end 


function bestworstchrom=FindBestAndWorst Individual (populationchrom, 
populationfitness, PopSize, bestworstchrom) ; 


% to find out the best and worst individual so far current generation 


bestworst fitness (1) =populationfitness(1); 


bestworst fitness (2) =populationfitness(1); 
flag=1; 
while flag 
num=1; 
for loopi=2:PopSize 
num=num+ 
if populationfitness (loopi) >=bestworst fitness (1) 
bestworstchrom(1 ‘populationchrom(loopi,:); 
bestworst fitness (1)=populationfitness(loopi) ; 
end 
if populationfitness (loopi) <=bestworst fitness (2) 


bestworstchrom(2, :)=populationchrom(loopi, 
bestworst fitness (2) =populationfitness (loopi) ; 
end 
if num--PopSize 
flag=0; 
end 
end 
end 


function populationchrom=Generat eNext Population (PopSize, populationchrom, 
CHROMLENGTH, LENGTH, Pc, Pm, populationfitness) 


for i=1:PopSize 


Sum-surmi«populationfitness(i); 

end 

for i=1:PopSize 
cfitness(i)-populationfitness(i)/sum; 
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end 

[ON II UU 
% calculate cumulative fitness 
es E 


for i-2:PopSize 
cfitness(i)=cfitness(i-1)+cfitness (i); 
end 


while р > cfitness (index) 
index=index+1; 

end 

newpopulat ionchrom(i, :)=populationchrom(index, :); 
end 
for i-1:PopSize 

populationchrom(i 
end 


) =newpopulationchrom(i 


% make a pair of individual randomly 


We 
for 
index (i) = 
end 
for i=0:PopSize-1 


point-round(random('unif',0,PopSize-i)); 
temp=index(i+1); 
if (point+i+1) > PopSize 
index (1+1) =index(point+i) ; 
index (point+i)=temp; 
else 


index (1+1 ndex (point+i+1) ; 
index (point+i+1)=temp; 
end 
end 
%- 
% two point crossover operation 
$-- ie 
for i PopSize 


p-rand; 
if p«Pc 
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point (1)-round(random('unif',1,CHROMLENGTH)); 

point (2) =round(random('unif' ,1,CHROMLENGTH) ) 7 

if point (1) oint (2) 
ch=populationchrom(index(i),1:point (1)); 
populationchrom (index (i) ,1:point (1) )=populationchrom(index(i+1), 
1:point(1)); 
populationchrom(index(i+1),1:point (1)) =сћ; 

elseif point (1) >роіпе (2) 
ch=populationchrom(index(i) ,point(2) :point (1)); 
populationchrom(index(i),point (2) :point (1) )=populationchrom(index(i+1), 
point (2) :point (1)); 
populat ionchrom(index(i+1),point (2) :point (1))=ch; 


else 
ch=populat ionchrom (index (i), point (1) :point (2)); 
populat ionchrom (index (i) ,point (1) :point (2) ) =populationchrom(index(i+1) , 
point (1) :point (2)); 
populationchrom(index(i+1),point (1) :point (2))=ch; 

end 


for j=1:CHROMLENGTH 
p=rand; 
if p<Pm 
if populationchrom(i,j) 
populationchrom(i,j)= 


else 
populationchrom(i, j)-0; 
end 
end 
end 
end 


function area-Decode (populationchrom, LENGTH, gan) 


26а нб рейс ыч ы инер ыы, Dos 
$ decode 

$ ouput variables: 

$ area ross sectional areas of structural elements 


$ extract structural cross section areas 
ioc 
удагеа=1е-6* [3125 80 100 125 180 259.2 320 405 500 672.2 793.8 
1125 1280 1620 2000 2420]; 
area=zeros (gan(1),1); 
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for loopi-1:gan(1) 
temp=0; 
for loopj=1:LENGTH(1) 
if populationchrom( (loopi-1) *LENGTH (1) +loopj 
temp-temp«2^ (100pj-1); 
end 


end 

temp=stemp+1; 

area (1оорі) =vdarea (temp); 
end 


function [W,dispmax,stressmax, frequency] -Trusssizeopt (area) 


% Purpose: 

% This function is used to calculate total mass, maximal nodal diaplcement, 
* maximal element stress and first natural frequency for space 72-bar truss 
E 

% Synopsis: 

* [W, dispmax, stressmax, frequency] =Trusssizeopt (area) 

$ Variable Description: 


LI Input parameters 

$ area - element cross-section areas 

* Output parameters 

$ W - total truss mass 

% dispmax - maximal nodal displacement 

% stressmax - maximal element stress 

% frequency - first natural frequency 

E=2.1e11; % elastic modulus 
density=7860; % mass density 


node_number=20; 
element_number=72; 
No_dof=3; 


No_nel=2; 

Sdof-node number*No dof; $ total number of dofs for ground structure 

f=zeros (Sdof,1); $ force vector 

£(58)=-50000; 

пс=[0 0 0;1 0 0;1 1 0;0 1 0; ... % nodal coordinate for ground structure 
0 0 1;1 0 2;1 1 1:0 11; . 
0 0 2;1 0 2;1 1 2;0 1 2; ... 
0 0 3;1 0 3;1 13:01 3; ... 
0 0 4;1 0 4;1 1 4;0 1 4]; 

en=zeros (72,2); 


en(1,1)-1;en(1,2)-5; %en:element_node 
en(2,1)=1;en(2,2)=6; 
en(3,1)=2;en(3,2)=5; 


en(4,1)=2;en(4,2)=6; 
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еп(5,1)=2;еп(5,2)=7; 


еп(12,1)=1;еп(12,2)=8; 
еп(13,1)=5;еп(13,2)=6; 


еп(14,1)=6;еп(14,2)=7; 
еп(15,1)=7;еп(15,2)=8; 
en(16,1)=5;en(16,2)=8; 


еп(17,1) =6;en(17,2) 
en(18,1)=5;en(18,2)=7; 
for loopi-1:3 
for loopj-1:18 
en(1oopi*18«100pj,1)-en(100pj,1)«4*1oopi; 
en (1oopi*18«100pj,2)-en(100pj,2)«4*1oopi; 
end 
end 


ed(1:node number,1:3)-1; :element displacement 
constraint-[1,1;1,2;1, ,1:2,2;2,3;3,1;3,2;3,3;4,1;4,2;4,3]; 
for loopi=1:length (constraint); 

ed(constraint (loopi,1),constraint (loopi,2)) 


0; 


if ed(loopi,loopj)--0 
dof=dof+1; 
ed(loopi, loopj) =dof; 


end 
end 
end 
%--- 


% Initilization to zero 


$structural stiffness matrix 


m(1:dof,1:dof)-0;; *structural mass matrix 
disp(1:dof)-0; $ system displacement vector 
eldisp(1:No nel*No dof)-0; % element nodal displacement vector 
elforce(1:No nel*No dof) % element force vector 

stress (1:element_number) =0; $ stress vector for every element 
el(1:element number)-0; 

e2s(1:6)-0; % index of transform the element displament number to 


structural 
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W=0; 
for loopi=1:element_number 
for z 
e2s((zi-1)*2+1)=ed(en(loopi,zi),1); 
e2s((zi-1)*2+2)=ed(en(loopi,zi),2); 
e2s((zi-1)*2+3)=ed(en(loopi,zi),3); 
end 
el(loopi)=sqrt((nc(en(loopi,1),1)-nc(en(loopi,2),1))*2+(nc(en(loopi,1),2) 
-nc(en(1oopi,2),2))^2 ... 
+ (nc(en(10oo0pi,1),3)-nc(en(100pi,2),3))^2); 
Cz (nc (en(1oopi,1),1)-nc(en(100pi,2),1))/el(loopi); 
$- (nc(en(10oopi,1),2)-nc(en(1o0pi,2),2))/el(1oopi); 
r-(nc(en(10oopi,1),3)-nc(en(1oopi,2),3))/el(loopi); 
dk-E*area(loopi)/el(loopi)*[c^2 c*s c*r -c^2 -c*s -c*r; . 
$ element stiffness matrix 
C*s s^2 s*r -c*s -s^2 -s*r; 
c*r s*r r^2 -c*r -s*r -r^2; 


-c^2 -c*s -c*r c^2 c*s c*r; 
-c*s -s^2 -s*r c*s s^2 s*r; ... 
-c*r -s*r -r^2 c*r s*r r^2]; 
dm= (депвісу*агеа (10орі) *е1 (10орі)) /2*еуе(6); ^ $ element mass matrix 
for jx=1:6 
for jy-1:6 
if (e2s (jx) *e2s (jy) ~=0) 
k(e2s (jx) ,e2s (jy) )=k (e2s (jx) ,e2s (jy) ) «dk (5x, ју); 
m(e2s (jx) , e2s (jy) ) =m(e2s (jx) ,e2s (jy) ) «dm (3x, jy); 
end 


end 


end 
W=W+density*area (1оорі) *el (loopi) ; 


$= 
p=1; % the number of natural frequencies 
epsilon=le-5; 

[v,d]-Inviter(k,m,p,epsilon); % Inverse iterative method 
frequency-sqrt (d) / (2*pi) ; 


Number con--1; * apply boundary conditions 
for loopi ength(constraint) 
Number cons Number con«l; 
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£( (constraint (loopi,1)-1)*No dof«constraint (loopi,2)-Number con)-[]; 
end 
disp=k\f; % solve matrix equation for nodal 
displacement 


for loopi 
for zi-1:2 
e2s ( (zi-1) *2+1) =ed(en(loopi,zi),1); 
e2s ( (zi-1)*2+2) =ed(en(loopi, zi) ,2); 
е28((21-1) *2+3) -ed(en(1oopi,zi),3); 
end 
е1 (loopi) -sqrt ( (nc (еп(100рі,1),1) -пс(еп(10орі,2),1))^2+ (пс(еп(10орі,1),2) 
-nc (еп (1оорі,2),2)) ^2 
*(nc(en(1oopi,1),3)-nc(en(100pi,2),3))^2); 
c= (nc (en (100рі,1),1) -пс(еп(1оорі,2),1)) /е1(10орі); 
= (пс (en(1oopi,1),2)-nc(en(10o0pi,2),2))/el(1oopi); 
nc (еп (10орі,1),3) -пс(еп(1оорі,2),3)) /е1(10орі); 
dk-E*area(loopi)/el(loopi)*[c^2 c*s c*r -c^2 -c*s -c*r; ... 
C*s s^2 s*r -c*s -s^2 -s*r; ... 


c*r s*r r^2 -c*r -s*r -r^2; 
-c^2 -c*s -c*r c^2 c*s ctr; 
-c*s -s^2 -s*r c*s s^2 s*r; ... 
-c*r -s*r -r^2 c*r s*r r^2]; 
for loopj-1: (No nel*No dof) 
if e2s(loopj)==0 
eldisp(loopi) 
else 
eldisp(1o0pj)-disp(e2s(100pj)); 
end 


0 


end 
elforcesdk*eldisp'; $ element force vector 
if area(loopi)==0 
stress (loopi) =0; 
else 
stress (loopi) =sart (el force (1) *2+el force (2)*2+el force (3)*2) /area(loopi) ; 
% stress 
end 
if ((ne(en(loopi,1),1)-ne(en(loopi,2),1))*elforce(4))<0 
% check if tension or compression 
stress (loopi) =-stress(loopi) ; 
end 


end 
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displ-disp; 
while flag 
for loopi=1:length(constraint) 
ісег=ісег+1; 
for loopj=1: (dof+iter) 
if loopj<( (constraint (loopi,1)-1) *No_dof+constraint (loopi,2)) 
dispt (loopj) =displ (loopj); 
else 
dispt (loopj+1) =displ (loopj); 
end 
end 
dispt ( (constraint (loopi,1)-1)*No dof«constraint (loopi,2))-0; 
displ-dispt; K 


end 

if length (displ) >=node_number*No_dof 
flag=0; 

end 


dispmax-max (abs (dispt') 
stressmax-max (abs (stress')); 
function Cv-VALUE(W,dispmax, stressmax, frequency, penal) 


if аізрпах<=1е-3 
1-0.0; 
else 


dl- (dispmax-1e-3)/(1e-3); 
end 
if  stressmax«-1.732e8 
d2=0.0; 
else 
d2-(stressmax-1.732e8)/(1.732e8); 
end 
if  frequency»-80 
93=0.0; 
else 
d3=(80-frequency) /80; 
end 
d=d1+d2+d3; 
Су=1/ (W* (1+penal*d)); 
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8.1.3 动力 学 拓扑 优化 


结构 动力 学 拓扑 优化 是 结构 优化 中 最 富有 挑战 性 的 研究 领域 . 结构 拓扑 的 改进 可 大 大 
改善 结构 的 静 、 动 态 性 能 ， 并 可 使 无 解 的 问题 变 得 有 解 . 目前 ， 结 构 的 动力 学 拓扑 优化 比 
起 动力 学 截面 优化 和 动力 学 形状 优化 来 研究 甚 少 ， 几 乎 刚刚 起 步 . 针对 离散 结构 的 动力 学 
拓扑 优化 设计 ， 其 优化 方法 主要 是 建立 在 基 结构 基础 上 . 由 于 连续 体 结构 拓扑 优化 模型 描 
述 的 困难 和 数值 算法 的 巨大 计算 量 ， 因 而 发 展 较 慢 . 目前 的 方法 都 是 在 基 结 构 基础 上 的 描 
述 方式 ， 包 括 几 何 (尺寸 ) 描 述 方式 和 材料 (物理 ) 描 述 方式 . 

1. 顶 架 拓扑 优化 

【 例 8.3】 数值 算 例 . 如 图 8.5 所 示 的 空间 36 КЕНТ, НЕВЕ Е =2.1х10"Ра, JR 
量 密度 = 7.8x10 kg/m? . 在 节点 12 的 -x 方向 施加 一 大 小 为 50 000N 的 力 . 约束 条 件 为 : 
结构 的 基 频 约束 要 求 基 频 不 小 于 80Hz ， 应 力 约束 要 求 每 个 单元 的 应 力 不 大 于 173.2MPa , 
静 位 移 约束 为 节点 12 的 x 方向 位 移 小 于 0.001m . 通过 遗传 算法 最 终 优化 的 拓扑 如 图 8.6 
所 示 ， 相 应 构件 的 模 截 面积 和 优化 的 特性 分 别 见 表 8.2 和 表 8.3. 


图 8.5 空间 36 HFR 图 8.6 优化 的 拓扑 
382 优化 的 横 截面 积 
杆 号 横 截 面积 (mm2) 

1 1125 

3 672.2 

Š 180 

7 d 1620. 

8 320 

9 320 

1 


第 8 章 工程 应 用 305 


续 表 
杆 号 横 截面 积 (mm”) 
15 80 
16 80 


$ 
% This program is used for the topology optimization for space 36-bar trusss 
% based on genetic algorithm 
$ ---- 
% initialization of parameters 
Ecc 
LENGTH-[4 7]; %the chromosome length of design variable 
gan-[36 1]; $the number of gan 
CHROMLENGTH-LENGTH*gan';  $totle length of chromosome 
PopSize-400; $population size 
Рс=0.8; %probability of crossover 
Pm=0.02; probability of mutation 
penal-100; 


the initial penalty 


PopSize 
for loopj-1:CHROMLENGTH 
populationchrom(loopi,loopj)-0. 
end 
end 


for loopi-1:3 
for loopj-1:CHROMLENGTH 
bestworstchrom(loopi,loopj)- 
end 
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end 
%---- 
% begin the main program 
和 
populationchrom-GenerateInitialPopulation (PopSize,CHROMLENGTH, LENGTH, gan) ; 
populationfitness-CalculateObjectValue (populationchrom, LENGTH, PopSize, 
gan, penal); 
bestworstchrom=FindBestAndWorst Individual (populationchrom, 
populationfitness, PopSize, bestworstchrom) ; 
bestworstchrom(3, :)=bestworstchrom(1, 
-----the ceasing condition 
itercr 
generation=0; 
while itercri 


populat ionchrom=GenerateNext Population (PopSize, populationchrom, 
CHROMLENGTH, LENGTH, Pc, Pm, populationfitness) ; 
populationfitness=CalculateObjectValue (populationchrom, LENGTH, PopSize, 
gan, penal); 
bestworstchrom=FindBest AndWorst Individual (populationchrom, 
populationfitness, PopSize, bestworstchrom) ; 
for i=1:3 
[Infor node, area] zDecode (bestworstchrom(i,:), LENGTH, gan) ; 
[W, dispmax, stressmax, frequency] =Trusstopology (Infor node, area); 
C-VALUE (W, dispmax, stressmax, frequency, penal) ; 
bestworstfitness(i)-C 
end 
if bestworstfitness(1) » bestworstfitness(3) 
bestworstchrom(3,: =bestworstchrom(1,:); 
end 
%----output the result of current population. 
(Infor_node, area] -Decode (bestworstchrom(3, :) , LENGTH, gan); 
[W, dispmax, stressmax, frequency] -Trusstopology( Infor_node, area) ; 
if penal>=2 
penal=penal/2; 
end 
$----renew the best individual value----------- 
C-VALUE (И, dispmax, st ressmax, frequency, penal) ; 
bestworstfitness(3)-C; 
sumfitness-0.0; 
for i=1:PopSize 
sumfitness=sumfitness+populationfitness (i); 
end 
meanfitness=(sumfitness-min (populationfitness) +bestworst fitness (3)) /Popsize; 
generat ion=generation+1 
maxfitdata (generation) =bestworst fitness (3); 
meanfitdata (generation) =meanfitness; 
Edata (generation) =w; 
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if generation>50 
hi-abs (Edata (generat ion) -Edata (generat ion-50) ) /Edata (generation); 
if hl«le-4& frequency»-80&stressmaxc-173.2e6&dispmax«-1e-3 
itercri-0; 
else 
itercri-1; 
end 
end 
end 
figure (1) 
plot (Edata) 
figure (2) 
n=1:generation; 
plot (n,maxfitdata,n,meanfitdata, ' 


function [W,dispmax, stressmax, frequency] =Trusstopology (Infor, node, area) 


$ Purpose: 
$ compute some characteristics corresponding to some truss topology based 
$ on space 36-bar ground truss 


з 

% Synosis: 

% (W,dispmax, stressmax, frequency] -Trusstopology (Infor node,area) 

* 

% Variable Description: 

$ Infor_ node - Information on removed nodes 

% area - Cross-section areas 

` w - total mass 

% dispmax  - maximal static displacement amplitude 

$  stressmax - maximal static stress 

$ frequency - first natural frequency 

nnoder-find (Infor node--0)44; * Information on removed nodes 
E-2.1e11; % elastic modulus 

density-7860; $ mass density 

node, number-12; $ total number of nodes in system before remove 
element, number-36; % number of elements before remove 

No. dof- $ number of dofs per node 

No nel-2; $ number of nodes per element 

Sdof-node, number*No dof; $ total number of dofs for ground. structure 
f-zeros(Sdof,1); $ force vector 


£ (34) =-50000; 


ne=(0 0 0;1 0 0;1 1 0;0 1 0; - &% nodal coordinate for ground structure 
001;101;111;011; . 
0 0 2;1 0 2;1 1 2;0 1 2); 


for loopi=1:length(nnoder) % obtain new nodal coodinate values 
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+1; 
nc((nnoder (1oopi)-i),:)-[]; 
end 


en=zeros (36,2); 


€n(1,1)-1;en(1,2)-5; % nodal connectivity for each element beofore remove 


en(2,1)-1;en(2,2)-6; 
en(3,1)=2;en(3,2)=5; 
en(4,1)=2;en(4,2)=6; 
en(5,1)=2;en(5,2)=7; 
en(6,1)=3;en(6,2)=6; 
en(7,1)=3;en(7,2)=7; 
en(8,1)=3;en(8,2)= 


геп(11,2)=5; 
геп(12,2)=8; 
геп(13,2) =6; 
геп(14,2)=7; 
геп(15,2) =8; 
ел (16,1) =5;еп(16,2)=8; 
en(17,1)-6;en(17,2)-8; 
en(18,1)=5;en(18,2)=7; 
for loopi=1:1 
for loopj=1:18 


en(1oopi*18«100pj,1)-en(1oopj,1) *4*loopi; 
en(loopi*18«1oopj ;2) =еп(10орј, 2) «4*1oopi; 


end 
end 
nelementr-zeros (element, number,1); 
for loopi-1:element, number 
for loopj=1:2 
for loopk-1:length(nnoder) 
if en(loopi,loopj 
nelementr (loopi)-1; 
end 
end 
end 
end 


:element, number 
if nelementr(loopi 


numl=num1+1; 

en ((loopi-numi+1), 

area (loopi-num1+1)=[]; 
end 


nnoder (loopk) 
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end 


num2=size (еп); 

element_number=num2 (1); 

node_number=node_number-length (nnoder) ; 

flagl-1; 

if element, number«(3*(node number-4)-1) % judege whether the truss is mechanic 
flagi-0; 

else 

for loopi-1:element. number 

2 


for loopj 
num3-0; 

for loopk-1:length(nnoder) 
if en(loopi,100pj)»-nnoder (100рк) 


num3=num3+1; 
end 
end 
en(loopi, loopj) =en(loopi, loopj) -num3; 
end 
end 

Sdof=Sdof-No_dof* length (nnoder) ; % new system dofs 
ed(1:node_number, 1:3) =1; % initilizate 


element_displacement 


constraint=[1,1;1,2;1,3;2,1;2,2;2,3;3,1;3,2;3,3;4,1;4,2;4,3]; 
for loopi=1:length(constraint); 
ed(constraint (loopi,1),constraint (loopi,2))=0;. 
if ed(loopi,loopj) 
dof=dof+1; 
ed(loopi, loopj) =dof; 
end 
end 
% Initilization to zero 
THERE UNA 
k(1:dof,1:dof)-0; $structural stiffness matrix 
m(1:dof,1:dof)-0;; $structural mass matrix 
disp(1:dof)-0; $ system displacement vector 
eldisp(1:No, nel*No dof)-0; $ element nodal displacement vector 


elforce(1:No nel*No dof)- $ element force vector 
stress(1:element number 
el(1:element. number) =0; 


e2s(1:6)=0; % index of transform the element displament number to structural 


* stress vector for every element 
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e2s ((zi-1)*2+1)=ed(en(loopi,zi),1); 
e2s ((zi-1)*2+2) =ed(en(loopi, zi) ,2); 
е28((21-1) *2+3) =ed(en(loopi,zi),3); 


епа 


е1 (10орі) =sqrt ( (пс (еп(1оорі,1) 1) -пс (еп (10орі,2),1))^2+ (nc (en(1oopi, 1) 72) 
-nc(en(1oopi,2),2))^2 ... 
* (nc (en (1oopi,1),3) -nc(en(100pi,2),3))^2); 
с= (пс (еп (100рі,1),1) -пс(еп(1оорі,2) :1))/el(loopi); 
5= (пс (еп(1оорі,1) ,2) -nc(en(1oopi,2),2))/el(1oopi); 
r- (пс (еп (10орі,1),3) -пс(еп(1оорі,2) .3)) /е1(1оорі); 


dk-E*area(loopi)/el(loopi)*[c^2 c*s c*r -c^2 -c*s -c*r; ... 
$ element stiffness matrix 
C*s s^2 s*r -c*s -s^2 -s*r; ... 


C*r s*r r^2 -c*r -s*r -r^2; 
-C^2 -c*s -c*r с^2 cts c*r; ... 
-C*s -8^2 -s*r cts s^2 str; ... 
-c*r -s*r -r^2 c*r str r^2]; 
dm= (density*area(loopi)*el(1oopi))/2*eye(6); $ element mass matrix 


if(e2s(jx)*e2s(jy)--0) 
k(e2s (jx) ,e2s (jy) ) -k(e2s (jx) ,e2s (jy) ) «dk (јх, ју); 
m(e2s (jx) , 2s (jy) ) -m(e2s (jx) +e2s (jy) ) «dm (jx, jy); 


end 
end 
end 
W-W«density*area(loopi)*el (10орі); 
епа 
if det (к) <1е4 % judge whether system stiffness matrix is singular 
flag1=0; 


[v, d] =eig(k,m) ; :eigenvalue v:eigenvector 
freq-sqrt (diag(d))/(2*pi); 
[freq, indexf]-sort (freq); 


RSE 工程 应 用 311 


for loopi-1:length(nnoder) % consider nodal remove 
for loopj=1:3 

=i+1; 

f((nnoder(loopi)-1)*3+1oop3j-i,:)=[]; 


end 
end 
Number con--1; * apply boundary conditions 
for loopi-1:length(constraint) 
Number cons Number con«l; 
f((constraint (loopi,1)-1)*No dof«constraint (loopi,2)-Number con)-[]; 
end 


disp=k\f; % solve matrix equation for nodal displacement 


for loopi 
for zi 
e2s((zi-1)*2«1)-ed(en(1loopi,zi),1); 
e2s((zi-1)*2«2)-ed(en(loopi,zi),2); 
е28( (21-1) *2+3 а (еп (10орі,21),3); 
епа 
е1 (loopi) =sart ( (пс (еп (100рі,1),1) -пс(еп(1оорі,2),1)) ^2+ (пс(еп(1оорі,1),2) 
-nc(en(100pi,2),2))^2 ... 
* (nc (en(1oopi,1),3)-nc(en(100pi,2),3))^2); 
€» (nc (en(1oopi,1),1)-nc(en(100pi,2),1))/el(1loopi); 
в= (nc (en(1oopi,1),2)-nc(en(1oopi,2),2))/el(loopi); 
г= (nc(en(1oopi,1),3)-nc(en(100pi,2),3))/el(1oopi); 


dk-E*area(loopi)/el(loopi)*[c^2 c*s c*r -c^2 -c*s -c*r; 
C*s s^2 s*r -c*s -8^2 -s*r; 


c*r s*r r^2 -c*r -s*r -r^2; ... 
-c^2 -c*s -c*r c^2 c*s c*rj ... 
-c*s -8^2 -s*r c*s s^2 str; ... 
-Ce -s*r -r^2 c*r s*r r^2]; 


for loopj-1: (No nel*No dof) 
if e2s(1oopj) 
eldisp(1o0pj)-0; 


else 
eldisp(1oopj)-disp(e2s(100pj)); 
end 
end 
elforce=dk*eldisp'; $ element force vector 


0 


if area(loopi) 
stress (loopi 
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else 
stress (1oopi)-sqrt (elforce(1)^2«elforce(2) ^2«elforce(3)^2) /area(loopi); 
$ stress 
end 
if ((nc(en(loopi,1), 1)-nc(en(loopi,2),1))*elforce(4))«0 
$ check if tension or compression 
stress (loopi)--stress(loopi); 
end 


displ-disp; 
while flag2 
for loopi-1:length(constraint) 
itersiter+1; 
for loopj=1: (dof+iter) 
if loopj<( (constraint (1o0pi,1) -1)*No dof«constraint (loopi, 2) ) 
dispt (100pj)-displ(100pj); 
else 
dispt (100pj«1)-displ(1o0pj); 
end 
end 
Gispt ( (constraint (1oopi, 1) -1) *No_dof+constraint (loopi,2)) =0; 
displ-dispt; 


end 
if length (displ) >=node_number*No_dof 
flag2=0; 


dispmax=max(abs(dispt')); 
Stressmax-max (abs (stress')); 
frequency-freq(1); 

end 
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2. 连续 体 拓扑 优化 

【 例 8.4】 数值 算 例 . 基 结 构 如 图 8.7 所 示 ， 为 240mmx100mm 的 平面 体 ， 厚 度 为 
6mm ， 材 料 弹性 模 量 为 68.89GPa ， 泊 松 比 为 0.3， 密 度 为 10000kg/m’ . 一 个 集中 载荷 
Е =15 600N 作用 于 右边 界 中 心 ， 为 了 避免 应 力 集中 的 影响 ， 将 载荷 分 散在 右边 界 中 心 的 
3 个 节点 上 ， 左 边界 固定 支承 ， 共 划分 为 20x48 个 四 边 形 网 格 . 约束 : 位 移 约束 P 点 竖 直 
向 下 位 移 小 于 0.15mm ， 同 时 结构 基 频 大 于 3000Hz. 优化 的 拓扑 以 及 结构 质量 随 迭 代 次 数 
的 变化 曲线 分 别 如 图 8.8 和 图 8.9 所 示 . 


15.6kN 


0.24m 


图 8.7 板 的 基 结 构 图 8.8 优化 的 拓扑 


X 1.5 ы 


C(kg 


0 5 10 15 20 35 30 3s 40 45 50 
和 迭代 次 数 


图 8.9 ”结构 质量 随 迁 代 次 数 的 变化 曲线 
$ Ex.8.4 
$ one side with fixly-supported condition for rectangular plate with individual 


$ displacement and frequency constraints 


$ INITIALIZE 
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% the numbers of elements of x direction 
nely-48; $ the numbers of elements of y direction 
X(1:nely,l:nelx) = 0.006*ones (nely,nelx); 

* initialization of thickness of elements 
a=0.0025; % length of element along x direction 
b-0.0025; $ length of element along y direction 


р=1е4; % density of material 

loop = 0; % iteration variable 

ћ=0.2; % relaxation factor 

U44--0.00015; % constrained displacement 
freq1-3000; % constrained frequency 

change -0.01; 

q-0.21; % parameter1 

d=1.4; % parameter2 about frequency sensitivity 
g=0.1; % parameter3 about frequency sensitivity 


* START ITERATION 
while change>0.0001 
loop = loop + 1; 
xold = x; 
% FE-ANALYSIS 
[U,U2,G, freq, lambda] -FE (nelx, nely,xold); 
% OBJECTIVE FUNCTION AND SENSITIVITY ANALYSIS 


[KE,ME] = 1k; 
с = 0.; 
for ely = 1:nely 
for elx = 1:nelx 
nl = (nely+1)*(elx-1)+ely; 
n2 = (nely+1)* elx  «ely; 
edof - [2*n1-1; 2*n1; 2*n2-1; 2*n2; 2*n2«1; 2*n2+2; 2*п1+1; 2*n142]; 
€ = c + 4*((xold(ely,elx)))*p*a*b; 
dc(ely,elx) - 4*p*a*b; 
Ue = U([2*nl-1; 2*n1; 2*n2-1; 2*n2; 2*n2«1; 2*n242; 2*п1+1; 2*п1+2],1); 
F2 (edof, :) -xold(ely,elx)*KE*Ue; 
dU (ely,elx)-F2(edof, :) '*U2( [edof] ,2* (nelx«0.5)* (пе1у+1) +1); 
епа 
епа 
% Lagrange multiplier 
lamda=c/(3*abs(U44)); 
% COMPUTATION OF DISPLACEMENT SENSITIVITIES 
[U5]=reddistrib(nelx,nely,x,dU,lamda,p,a,b,h); 
% COMPUTATION OF FREQUENCY SENSITIVITIES 
[G,G1,G2]=refdistrib(nelx,nely,G,p,a,b,dU) ; 
% DESIGN UPDATE BY THE OPTIMALITY CRITERIA METHOD 
(x]=0C (nelx, nely,x,h,U5, q,G, freq, d, g, £req1,p,a,b,d0,G1,G2) ; 
% iterated objective function 


y (loop) =<; 
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% PRINT RESULTS 
change = abs (4*p*a*b*sum(sum(x) ) -4*p*a*b*sum(sum(xold) ) ) /abs (4*p*a*b*sum(sum(x) ) ) 7 


disp([' It.: ' sprintf('$4i',loop) * Obj.: ' 
sprintf('$10.4f', 4*p*a*b*sum(sum(x))) ... 
' Vol.: ' sprintf('$6.3f',4*sum(sum(x))*a*b) ... 
' freq(1).: ' sprintf('$6.3f',freq(1) )]) 


$ PLOT DENSITIES 

figure(1) 
colormap(gray); imagesc(-x); axis equal; axis tight; axis off;pause(1e-6); 
grid on; 

figure(2) 

plot (y) 

end 


function [xnew]-OC (nelx,nely,x,h,U5,q,G, freq, 1,9, freql,p,a,b, dU,G1,G2) 


% OPTIMALITY CRITERIA UPDATE 
$--- 
всер1=1; 
for ely 
for elx = 1:nelx 
xnewl (ely, elx) =real (х(е1у,е1х) *05 (ely,elx)) ^ (1/ (142*h)) ; 
$ update design variables based displacement sensitivity 


xnew2 (ely,elx)-real((((freq1/ (freq(1)))^d) * (((G1/G2) * (G(ely, elx) / ((1/dU( 
ely,elx)))))^g)) *x(ely,e1x)) ; 
$ update design variables based frequency sensitivity 
TT1((elx-1)*nely«ely)-xnewl(ely,elx); 
TT2 ( (e1x-1) *nely+ely) =xnew2 (ely, e1x) ; 
end 
end 


for ely = nely 
for elx = 1:nelx 
xnew2 (ely, elx) =хпем2 (ely, elx) * (median (TT1) /median(TT2)) ; 
% tension of different update design variables based different 
% sensitivities 
xnew (ely, elx) =min (max (хпем1 (ely, elx) , xnew2 (ely, elx)), (xnewl (ely, e1x) 
+xnew2(ely,elx))/2); % tradeoff of update design variables 
T((elx-1) *nely+ely) =xnew(ely,elx) ; 
end 
end 


% deletion of certain percentage of elements using Evolutionary 
$ Structural Optimization (ESO) 
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Mt=sort(T); 
for i-1: (nely*nelx) 
if((0.00005)«Mt (i) &Mt (1)«(0.009)) 
Maa (step1) =Mt (i); 
stepl=stepl+1; 
end 
end 
TT=2*floor(step1*0.005) 
for ely = 1:пе1у 
for elx = 1:nelx 
if ( (xnew(ely, elx) >0.000009)& (xnew (ely, elx)<0.009) &TT~=0) 
if (xnew(ely, elx)<=Maa (TT) ) 
хпем (е1у,е1х) =0.000009; 


епа 
епа 
TTT( (e1x-1)*nely«ely)-xnew(ely,elx); 
end 


end 


% division of design variable based average value 
for ely = 1:nely 
for elx - 1:nelx 
w(ely,elx)-q*sign(xnew(ely,elx)-mean (ТТТ) ) *xnew (ely, elx) ; 
xnew (ely, elx) =xnew (ely, elx) +w(ely,elx) ; 
xnew (ely, elx) =min (max (xnew (ely, elx) , 0.000009) , 0.009) ; 
if ( (abs (x (ely, elx) -0.000009) <=1e-5) | (abs (x (ely, elx) -0.009)<=1e-5) ) 
xnew (ely, elx) =x(ely,elx) ; 
end 
end 
end 


function [05] -reddistrib(nelx,nely,x,dU, lamda,p,a,b,h) 
%- 
% displacement sensitivity and sensitivity redistrubution 
g 
for ely = 1:nely 
for elx = 1:пе1х 
U4 (ely, elx)- ( (Lamda/ (4*p*a*b) ) *dU (ely,elx)*x(ely,elx))^h; 
end 


end 
for ely = 1:пе1у+1 
for elx - 1:nelx«1 
sumi-0; 


elx ely;elx-1 ely-1;elx-1 ely;elx ely-1]; 
for i-1:4 
if(aal(i,:)»0&aal(i,1)«-nelx&aal(i,2)«-nely) 


第 8 章 工程 应 用 317 


suml=suml+U4 (aal (i,2),aal (i,1)); 
ММ1=ММ1+1; 
end 
end 
06 (ely, elx)-suml/MMl; 
end 
end 
for ely = 1:nely 
for elx = 1:nelx 


aall-[elx ely;elx+1 ely+1;elx е1у+1;е1х+1 ely]; 
for i-1:4 
if(aall(i,:)»0&aall(i,1)«-nelx«1&aall(i,2)«-nely«1) 
sum11=sum11+U6(aal1(i,2),aal1(i,1)); 
MM11=MM11+1; 
end 
end 

05 (ely, elx) =sum11/MM11; 

end 

end 


function [G,G1,G2]=refdistrib(nelx,nely,G,p,a,b, dU) 


$- 


6220; 
for ely = 1:nely+1 
for elx = 1:пе1х+1 


sum2 

MM2-0; 

aa2=[elx ely;elx-1 ely-1;elx-1 ely;elx ely-1]; 
for i-1:4 


if(aa2(i,:)»0&aa2(i,1)«-nelx&aa2(i,2)«-nely) 
sum2-sum2«G(aa2(i,2),aa2(i,1)); 


MM2=MM2+2; 
end 
end 
G3 (ely, elx) =sum2/MM2; 
end 
end * 


for ely = 1:nely 
for elx = 1:nelx 


аа21=[е1х ely;elx+1 ely+1;elx е1у+1;е1х+1 ely]; 
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for i=1:4 
if(aa21(i,:)>0&aa21(i,1)<=nelx+1&aa21(i,2)<=nely+1) 
Sum21-sum21«G3 (aa21 (1,2),aa21(i,1)); 
ММ21=ММ21+1; 
епа 
епа 

G(ely,elx)-sum21/MM21; 
end 
end 
for ely = l:nely 
for elx = 1:nelx 
G1-G1« (1/dU (ely, e1x) ) *G (ely, elx); 
G2=G2+G (е1у,е1х)^2; 
end 
end 
function [U,U2,G, freq, lambda] =FE(nelx,nely, xold) 
% FE-ANALYSIS 
Жесе 
[KE,ME] = lk; 
K = sparse(2* (nelx«1)* (nely+1), 2* (пе1х+1) *(пе]у+1)); 
М = sparse(2*(nelx+1)*(nely+1), 2*(nelx«1)*(nelys1)); 
F = sparse(2* (nely«1)* (ne1x«1) ,1) ; 
Fl-sparse(2* (nely«1)* (nelx+1) ,2* (nely«1) * (ne1x«1)); 
U = sparse(2* (nely«1)* (nelx«1) ,1); 
U2 = sparse(2* (nely«1)* (nelx+1) ,2* (пе1у+1) * (ne1x«1)) ; 
for elx = 1:пе1х 
for ely = 1:nely 
nl = (nely+1)*(elx-1)+ely; 
n2 = (nely+1)* elx +е1у; 
edof = [2*n1-1; 2*nl; 2*n2-1; 2*n2; 2*n2+1; 2*n242; 2*п1+1; 2*n142]; 
K(edof,edof) = K(edof,edof) + xold(ely,elx) *KE; 
M(edof,edof) = M(edof,edof) + xold(ely,elx)*ME; 
end 
end 
% DEFINE LOADS AND SUPPORTS 
F(2* (nelx+0.5)*(nely+1)+1,1) = -5200; 
Р(2* (пе1х+0.5) * (nely«1)-1,1)--5200; 
F (2% (пе1х+0.5) * (пе1у+1) +3,1)=-5200; 
fixeddofs = [1:2*(nely+1)]; 
alldofs = [1:2* (nely+1) * (ne1x«1)] ; 
freedofs = setdiff(alldofs,fixeddofs); 
$ SOLVING 
U(freedofs,:) = K(freedofs,freedofs) X F(freedofs,:); 


U(fixeddofs = 0; 
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% compute eigenvalues апа eigenvectors 
[V,D]=eigs (K(freedofs, freedofs), M(freedofs,freedofs),1,'SM'); 
[lambda, Kt]=sort (diag(D)); 

Factor-diag(V(:,1)'*M(freedofs, freedofs)*V(:,1)); 
Vnorm=V(:,1)*inv(sqrt (diag (Factor))); % normalize eigenvector 
freq-sqrt (lambda) / (2*рі); 

Vi=zeros (2* (nely+1) * (nelx«1) ,1); 


V1(freedofs, :)=Vnorm(:,1); 

V1 (fixeddofs, :)=0; % delete of zero element 
% computation of frequency sensitivity 

for elx = 1:nelx 


for ely = l:nely 
nl = (nely+1)*(elx-1)+ely; 
n2 


(nely+1)* elx «el 


edof = [2*nl-1; 2*n1; 2*n2-1; 2*n2; 2*п2+1; 2*n2+2; 2*nl«1; 2*n1«2]; 
K1=KE; 
M1=ME; 
G(ely,elx)-[V1(edof,1) '* (K1-1ambda (1) *M1) *V1(edof,1)]; 
end 
end 
% compute unit virtual load vector 


* (ne1x40,5) * (nely«1) +1) 

1; 

U2 ([£reedofs],i)-K(freedofs,freedofs) \ Fl([freedofs],i); 
U2([fixeddofs],i)- 0; 

end 


end 


function [KE,ME]-1k 


k=[ 1/2-nu/6  1/8«nu/8 -1/4-nu/12 -1/8«3*nu/8 ... 
-1/4«nu/12 -1/8-nu/8 nu/6 1/8-3*nu/8]; 

% stiffness matrix 

KE - E/(1-nu^2)*[ k(1) k(2) k(3) k(4) k(5) k(6) k(7) k(8) 
k(2) k(1) k(8) k(7) k(6) k(5) k(4) k(3) 
k(3) k(8) k(1) k(6) k(7) k(4) k(5) k(2) 
k(4) k(7) k(6) k(1) k(8) k(3) k(2) k(5) 
k(5) k(6) k(7) k(8) k(1) k(2) k(3) k(4) 
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k(6) k(5) k(4) k(3) k(2) k(1) k(8) k(7) 
k(7) k(4) k(5) k(2) k(3) k(8) k(1) k(6) 
k(8) k(3) k(2) k(5) k(4) k(7) k(6) k(1)]; 

$ mass matrix . 

ME=((p*a*b)/9)*[40 201020 

102 


° 


【 例 8.5】 基本 结构 如 图 8.10 所 示 ， 为 520mmx260mm 的 平面 体 ， 厚 度 为 smm ， 材 
料 弹性 模 量 为 68.89GPa ， 泊 松 比 为 0.3， 密 度 为 Ikg/em. 个 集中 载荷 忆 =21000N 作用 
于 下 边界 中 点 ， 为 了 避免 应 力 集中 的 影响 ， 将 载荷 分 散在 下 边界 中 心 的 3 个 节点 上 ， 左 下 
角 和 右 下 角 两 个 点 采用 固定 支承 ， 共 划分 为 52x26 个 四 边 形 网 格 . 约束 ， 位 移 约束 P uE 
直 向 下 位 移 小 于 0.5mm ， 同 时 结构 基 频 大 于 70Hz . 优化 的 拓扑 以 及 结构 质量 随 迭 代 次 数 
的 变化 曲线 分 别 如 图 8.11 和 图 8.12 所 示 . 
520тт 


260mm 


Р 


图 8.10 板 的 基 结构 图 8.11 优化 的 拓扑 


k 600 . 


550 


50 60 70 


图 8.12 тачи hk 
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Ex.8.5 

one side with fixly-supported condition for rectangular plate with 
individual displacement and frequence constraint 

30*16 Mesh 


“e. 


% INITIALIZE £ 
nelx=52; 
nely=26; 
x(1:nely,1:nelx) = 0.005*ones(nely,nelx); 
+005; 
+005; 
р=1е6; 
loop = 
h=0.21; 
U44=-0.0005; 
freq1-70; 
change -0.01; 
$ START ITERATION 
q=0.2; 
E * parameter 2 
.28; $ parameter 3 
while change»0.00001 
loop = loop + 1; 
xold = x; 
$ FE-ANALYSIS 


[U, U2,G, freq, lambda] =FE(nelx,nely, xold) ; 
if ((loop)>120) ,break,end 
% OBJECTIVE FUNCTION AND SENSITIVITY ANALYSIS 


[KE,ME] = lk; 
c-0.; 
U99-U(2* (0.5*nelx«1)* (nely+1) ,1) 
freq(1) 
for ely = l:nely 


for elx = 1:nelx 
nl = (nely+1)*(elx-1)+ely; 
n2 = (nely+1)* elx +ely; 
edof = [2*п1-1; 2*nl; 2*n2-1; 2*n2; 2*n2«1; 2*n242; 2*п1+1; 2*п1+21; 
с = с + 4*((xold(ely,elx)))*p*a*b; 
dc(ely,elx) = 4*p*a*b; 
Ue = U([2*nl-1; 2*nl; 2*n2-1; 2*n2; 2*n2+1; 2*n2+2; 2*п1+1; 2*n142],1); 
F2 (edof, :) -xold (ely,elx)*KE*Ue; 
du (ely,elx)-F2 (edof, :) ' *U2 ([edof] ,2* (0.5*ne1x«1) * (nelys1)) ; 
end 
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епа 
% Lagrange multiplier 
lamda=c/(3*abs (U44) ) ; 

% COMPUTATION OF DISPLACEMENT SENSITIVITIES 
(U5]=reddistrib(nelx,nely,x,dU, lamda,p,a,b,h); 
[G,G1,G2]=refdistrib(nelx,nely,G,p,a,b, aU) ; 

% DESIGN UPDATE BY THE OPTIMALITY CRITERIA METHOD 
[x1-0C (nel x, nely,x, h, U5, q,G, freq, d, g, freq1,p,a,b,dU,G1,G2) ; 


% iterated objective function 
y (Loop) = 


$ PRINT RESULTS 
change = abs (4*p*a*b*sum(sum(x) )-4*p*a*b*sum(sum(xold) ) ) /abs (4*p*a*b*sum(sum(x) )); 


disp([' It.: ' sprintf('$4i',loop) ' Obj.: ' 
Sprintf('$6.4£',4*p*a*b*sum(sum(x))) e 
t Vol.s * sprintf ('%6.3#', 4*sum(sum(x) ) *a*b) ... 
' lamda.: ' sprintf('%6.3f',lamda ))) 


% PLOT DENSITIES 


figure(1) 
colormap(gray); imagesc(-x); axis equal; axis tight; axis off;pause(1e-6); 
figure(2) 
plot (у) 
end 


function [xnew] ОС (nelx,nely,x,h,U5, q,G, freq, d,g, fregi,p,a, 
PRIMI 
% OPTIMALITY CRITERIA UPDATE 
$--- 
stepl 
for ely = 1:пе1у 
for elx = 1:пе1х 
xnewl (ely, elx) =real (x(ely, elx) *05 (ely,elx))^(1/(1«2*h)); 
xnew2 (ely,elx)-real((( (freql/ (£req(1)))^d)*(((G1/G2)* (G(ely,elx)/((1/aU( 
ely,elx)))))^g)) *x(ely,elx)); 
ТТІ ((е1х-1) *пе1у+е1у) =хпем1 (е1у,е1х); 
TT2 ( (e1x-1) *nely+ely) =xnew2 (ely,elx); 
end 
end 


b, dU, G1,G2) 


for ely = 1:nely 
for elx = 1:nelx 
хпем2 (ely, elx) =xnew2 (ely, elx)* (median (TT1) /median (TT2) ) ; 
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xnew (ely,elx)-min (max (хпем1 (ely, elx) ,xnew2 (ely, elx) ), (xnewl(ely,elx)+xne 
w2(ely,elx))/2); 
T((elx-1) *nely+ely) =xnew(ely, e1x) ; 
end 
end 
Mt=sort (Т); 
for i-1: (nely*nelx) 
if((0.00006) «Mt (i)&Mt (1) <(0.006)) 
Маа (step1) =Mt (i); 
stepl=stepl+1; 
end 
end 
TT=2*floor(step1*0.01) 
for ely = 1:nely 
for elx = 1:пе1х 
if ( (xnew(ely,e1x) >0.00006) & (xnew(ely,e1x) <0.006) &TT~=0) 
if (хпем (е1у;е1х) <=Maa (TT) ) 
xnew(ely,elx)-0.00006; 
end 
end 
TTT( (elx-1) *nely+ely) =xnew(ely,elx) ; 
end 
end 
for ely = 1:пе1у 
for elx = 1:nelx 
w(ely,elx)-q*sign(xnew(ely,elx)-mean(TTT))*xnew(ely,elx); 
xnew (ely,elx)-xnew(ely,elx)«w(ely,elx); 
xnew(ely,elx)-min(max(xnew(ely,elx),0.00001),0.006); 
if((abs(x(ely,elx)-0.00001)«-1e-5)| (abs (x (ely,elx)-0.006)«-1e-5)) 
xnew(ely,elx)s-x(ely,elx); 
end 
end 
end 


function [U,U2,G, freq, lambda] =FE(nelx,nely,xold) 


% FE-ANALYSI 


%-- 
(KE, ME] -lik; 
K=sparse (2* (nelx+1)*(nely+1), 2* (пе1х+1) * (пе1у+1)); M = 


sparse (2* (nelx«1)* (nely«1), 2*(nelx«1)*(nely«1)); 

Е = sparse(2* (пе1у+1) * (пе1х+1),1); 
Fl=sparse (2* (nely+1) * (пе1х+1),2* (пе1у+1) * (nelx«1)); 
U = sparse(2* (пе1у+1) * (nelx«1),1) ; 

U2 -sparse(2* (nely+1)* (nelx«1),2* (nely«1)* (nelx«1)); 
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F4-sparse(2* (пе1у+1) *(nelx+1),1); F5-sparse(2* (nely«1)* (nelx+1) ,1); 
for elx = 1:пе1х 
for ely = 1:пе1у 
nl = (nely+1)*(elx-1)+ely; 
n2 = (nely+1)* elx +ely; 
edof = [2*n1-1; 2*п1; 2*n2-1; 2*n2; 2*п2+1; 2*n2+2; 2*п1+1; 2*n1+2]; 
K(edof,edof) = K(edof,edof) + xold(ely,elx)*KE; 
M(edof,edof) - M(edof,edof) « xold(ely,elx)*ME 
end 


end 


$ DEFINE LOADS AND SUPPORTS (HALF MBB-BEAM) 


F(2*(0.5*nelx«1)*(nely«1),1) = -7000; 
F(2*(0.5*nelx)*(nely«1),1) = -7000; 
F(2*(0.5*nelx«2)*(nely«1),1) = -7000; 


“fixeddofs = union( [2* (nely«1)-1 2* (nely«1)], [2* (пе1х+1) * (пе1у+1) -1 
2* (пе1х+1) * (nely«1)]); 


alldofs [1:2* (nely+1) * (пе1х+1)]; 

freedofs setdiff(alldofs, fixeddofs) ; 

% SOLVING 

U(freedofs,:) = K(freedofs,freedofs) N F(freedofs,:); 
U(fixeddofs,:)= 0; 


% compute eigenvalues and eigenvectors 
[V, D] =eigs (K(freedofs, freedofs) , M(freedofs,freedofs),1,'SM'); 
(lambda, Kt] =sort (diag(D)); 
Factor=diag(V(:,1) '*M(freedofs, freedofs) *V(:,1)); 
Vnorm-V(:,1)*inv(sqrt (diag(Factor))) ; % normalize eigenvector 
freq-sqrt (lambda) / (2*pi); 
У1=2егоз (2* (nely«1)* (nelx+1) ,1); 
Vi(freedofs, :) -Vnorm(:,1) ; 
V1(fixeddofs,:)=0; А 
% computation of frequence Sensitivity 
for elx = 1:пе1х 
for ely = 1:пе1у 

nl = (пе1у+1)*(е1х-1)+е1у; 

n2 = (nely+1)* elx +е1у; 

edof = [2*п1-1; 2*п1; 2*n2-1; 2*n2; 2*n2+1; 2*n2+2; 2*п1+1; 2*п1+2]; 

К1=КЕ; 

М1=МЕ; 

G(ely,elx)=[Vl(edof,1)'*(K1-lambda(1)*M1)*Vl(edof,1)]; 

end 
end 


$ compute eigenvalues and eigenvectors 
ГЕ 
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* (nely+1)* (пе1х+1) 
2* (0.5*пе1х+1) * (nely«1)) 
ae 

U2([freedofs],i)-K(freedofs,freedofs) N Fl([freedofs],i); 

U2([fixeddofs],i)- 0; 

end 
% Ul(:,[fixeddofs])-0; 

end 


% for elx-1:nelx 
$ for ely-l:nely 

% nl=(nely+1)*(elx-1)+ely; 
% n2=(nely+1)* е1х+е1у; 
% edof=[3*n1-2;3*n1-1;3*n1;3*n2-2;3*n2-1;3*n2;3*n2+1;3%n2+2;3*n2+3; 
è 3*п1+1;3*п1+2;3*п1+3]; 
` 
+ 


for і 3* (nely+1) * (пе1х+1) 
if( *(0.5*nelx* (nely+1)+0.5*nely) +1) 


* U2 ( [edof] , i)-U1([3*n1-2;*n1-1;3*n1;3*n2-2;3*n2-1;3*n2;3*n241; 
* 3*n2«2;3*n243;3*n1«1;3*n1«2;3*n1«3],i); 
$ end 
$ end 
* end 
$ end 
function [KE,ME]=11k 


Е = 68.8969; 

nu - 0.3; 

a-0.005; 

b=0.005; 

p-1e6; 

k-[ 1/2-nu/6 1/8+nu/8 -1/4-nu/12 -1/8+3*nu/8 ... 
-1/4«nu/12 -1/8-nu/8 nu/6 1/8-3*nu/8]; 


KE - E/(1-nu^2)*[ k(1) k(2) k(3) k(4) k(5) k(6) k(7) k(8) 
k(2) k(1) k(8) k(7) k(6) k(5) k(4) k(3) 
k(3) k(8) k(1) k(6) k(7) k(4) k(5) k(2) 
k(4) k(7) k(6) k(1) k(8) k(3) k(2) k(5) 
k(5) k(6) k(7) k(8) k(1) k(2) k(3) k(4) 
k(6) k(5) k(4) k(3) k(2) k(1) k(8) k(7) 
k(7) k(4) k(5) k(2) k(3) k(8) k(1) k(6) 
k(8) k(3) k(2) k(5) k(4) k(7) k(6) k(1)]; 
ME-((p*a*b)/9)*[402010 2 O0 
04020102 
02010 
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LØ 8.61 尺寸 为 6000mm x 3600mm 的 板结 构 ， 厚 度 为 500mm , ME 


210GPa ， 泊 松 比 为 03， 密 度 为 7800kg/ms 


性 模 量 为 

PEPR F = 40 000N 作用 于 结构 中 心 

点 ， 板 四 周 简 支 ， 共 划分 为 30x18 个 四 边 形 网 格 . 约束 : 位 移 约束 Р 
2.8mm ， 同 时 结构 基 频 大 于 3.5Hz. 优化 的 拓扑 以 及 结构 质量 随 迭 代 
如 图 8.13 和 图 8.14 所 示 . 


芭 直 向 下 位 移 小 于 
数 的 变化 曲线 分 别 


图 8.13 优化 的 拓扑 
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% INITIALIZE 

nelx-30; 

nely-18; 

x(1:nely,1:nelx) = 0.05*ones(nely,nelx); 


change -0.02; 


ET 
U6--0.0028; 
ET 
:31; 
fregl-3.5; 


$ START ITERATION 
while change>0.0001 
loop - loop « 1; 
xold - x; 
% FE-ANALYSIS 
[U,U2,G, freq, Lambda] -FE (nelx, nely,xold); 
if ((1oop)»28),break,end 
$ OBJECTIVE FUNCTION AND SENSITIVITY ANALYSIS 
[KE,Me] = 1k1; 
с = 0. 
U(3* (0. 5*nelx* (nely+1) +0.5*nely) +1,1) 
U(3* (0.5*nelx* (nely+1) +0.5*nely) -2,1) 
freq(1) 
for ely = l:nely 
for elx = l:nelx 
nl = (nely+1)*(elx-1)+ely; 
n2 = (nely+1)* elx +ely; 
edof = [3*n1-2;3*n1-1;3*n1;3*n2-2;3*n2-1; 
3*n2;3*n241;3*n242;3*n243;3*n141;3*n142;3*n143]; 
€ = c + 4*((xold(ely,elx)))*p*a*b; 
dc(ely,elx) - 4*p*a*b; 
Ue - U([3*n1-2;3*n1-1;3*n1;3*n2-2;3*n2-1; 
3*n2;3*n241;3*n252;3*n243;3*n141;3*n142;3*n143],1); 
F2 (edo£, :) = ( (xold (ely, e1x)^3)/((0.01)^3)) *KE*Ue; 
QU (ely, elx) =F2(edof, :) '*U2 ( [edof] ,3*(0.5*nelx* (nely+1)+0.5*nely) +1) ; 
901 (ely, elx)-F2 (edof, :) ' *U2 ( [edof] , 3* (0. 5*nelx* (nely41)40.5*nely)-2); 


end 

end 
lamdal (loop) =с/ (3*abs (U4) ) ; 
lamda2 (loop: / (3*abs (U6)); 
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lamdal (loop+1)=lamdal (loop) * (U(3*(0.5*nelx* (nely+1)+0.5*nely)+1,1) /U4) h; 
amda2 (loop) * (U(3* (0.5*ne1x* (nely«1)«0.5*nely)-2,1)/U6)^h; 
amdal(1oop); * 


$ COMPUTATION OF DISPLACEMENT SENSITIVITIES 
[U5]-reddistrib(nelx,nely,x,dU, QU1, lamda5, lamda6,p,a,b,h); 

$ COMPUTATION OF FREQUENCE SENSITIVITIES 

(G,G1,G2] -refdistrib(nelx,nely,G,p,a,b,dU,QU1); 
* DESIGN UPDATE BY THE OPTIMALITY CRITERIA METHOD 

[x] -0C (nelx, nely, x, h,U5, q,G, freq,d,g, freq1,p,a, b, dU, dU1,G1,G2) ; 
% m=1-(1-0.05)*((1oop+1) /loop) ; 
% m-0.2«0.5^((100p«1) /loop) ; 
y (loop) =c; 
% PRINT RESULTS 
change = abs (4*p*a*b*sum (sum(x) ) -4*p*a*b*sum (sum (xo1d) ) ) /abs (4*p*a*b* sum (sum (x) )) ; 
disp([' It.: ' sprintf('$4i',loop) ' Obj.: ' 
sprintf('$10.4f',4*p*a*b*sum(sum(x))) ... 
' Vol.: ' sprintf('$6.3f',4*sum(sum(x))*a*b) ... 
' lamda5.: ' sprintf('%6.3f',lamda5 )]) 

$ PLOT DENSITIES 
figure(1) 

colormap(gray); imagesc(-x); axis equal; axis tight; axis 
off;pause(1e-6); 
figure(2) 
plot (у) 
епа 


function 
[xnew] =0С (nelx, nely,x,h,U5,q,G, freq,d,g, freql,p,a,b,dU,dU1,G1,G2) 
&ec - " 
$ OPTIMALITY CRITERIA UPDATE 
oce 
stepl=1; 
for ely = 1l:nely 

for elx = 1:nelx 

хпем1 (ely, elx) =(x(ely,elx) *U5 (ely, elx))^ (1/(1«2*h)); 

xnew2 (ely,elx)-real((( (freql/ (£req(1)))^d)*(((G1/G2)* (G(ely,elx)/ 

((2/ (dU (ely, e1x) +01 (ely, el1x)))))) ^g))*x(ely,elx)); 

TT1((elx-1)*nely«ely)-xnewl (ely,elx); 

ТТ2 ((е1х-1) *пе1у+е1у) =хпем2 (е1у,е1х); 

епа 


епа 


for ely = 1:nely 
for elx = 1:nelx 
xnew2 (ely, elx) =xnew2 (ely, elx) * (median (TT1)/median(TT2)); 
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xnew (ely, elx) =min (тах (xnewl (ely, elx) ,xnew2 (ely, elx)), (xnewl (ely, elx) 
+xnew2 (ely,elx))/2); 
T((elx-1) *nely+ely) =xnew(ely,elx) ; 
end 
end 
Mt=sort (Т); 
for i-1: (nely*nelx) 
if((0.005)«Mt (i) &Mt (1)«(0.1)) 
Maa (step1) =Mt (1); 
steplestepl«l; 


end 
епа 
TT=2*floor(step1*0.01) 
for ely = l:nely 


for elx = l:nelx 

if ( (xnew(ely, e1x) >0.005) & (xnew(ely,e1x)<0.1) &TT~=0) 
if (xnew(ely,elx)«-Maa(TT)) 
xnew (ely, elx) =0.005; 
end 

end 

TPT ( (e1x-1) *nely+ely) =xnew(ely,e1x) ; 

end 

end 


for ely = l:nely 
for elx = 1:nelx 
wlely, elx) =q*sign (xnew (ely, elx) -mean (ТТТ) ) *xnew(ely,e1x) ; 
xnew (ely, e1x) =xnew(ely,elx) +w(ely,elx) ; 
xnew (ely, elx) =min (max (xnew (ely;elx) ,0.005),0.1); 
if ( (abs (x (ely, e1x) -0.005) <=1е-4) | (abs (x (ely, elx)-0.1)<=1e-4)) 
xnew (ely, e1x) =x (ely, e1x) ; 
end 
end 

end 


function [U5 


eddistrib(nelx,nely, x,dU,dU1,lamda5, lamda6,p,a,b,h) 


$ MESH-INDEPENDENCY FILTER 


for ely - 1:nely 
for elx - 1:nelx 
04 (ely, e1x) = ( (lamda5/(4*p*a*b) ) *dU(ely,elx)*x(ely,elx)*(lamda6/ 
(4*p*a*b) ) *àU1 (ely,elx)*x(ely,elx))^h; 
end 
end 
for ely = 1:пе1у+1 
for elx = 1:пе1х+1 
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elx ely;elx-1 ely-1;elx-1 ely;elx ely-1); 
for 1=1:4 
if(aal(i,:)»0&aal(i,1)«-nelx&aal (i,2)«-nely) 
suml=sum1+U4 (aal(i,2),aa1(i,1)); 
MM1=MM1+1; 
end 
end 
U6 (ely, elx) =sum1/MM1; 
end 
end 
for ely = 1:nely 
for elx 
sum11 
MM11-0; 
aall-[elx ely;elx«l ely+1;elx е1у+1;е1х+1 ely); 
for i-1:4 
if(aall(i, :)»0&aa1l(i,1)«-nelx«1&aall(i,2)«-nelys1) 
sum11-sum11«U6 (aa11(i,2),aa11(i,1)); 


1:пе1х 


ММ11=ММ11+1; 
епа 
епа 
US (е1у,е1х) =sum11/MM11; 
end 


end 


function [G,G1,G2 


efdistrib(nelx,nely,G,p,a,b,dU,dU1) 


for ely = 1:nely+1 
for elx = 1:nelx+1 


4 
if (aa2(i,:)>0&aa2(i, 1)«-nelx&aa2(i,2)«-nely) 
sum2=sum2+G(aa2(i,2),aa2(i,1)); 
MM2=MM2+2; 
end 
end 
G3 (ely, elx) =sum2/MM2; 
end 
end 
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for ely = 1:nely 
for elx = 1:nelx 
sum21=0; 
MM21=0; 
aa21-[elx ely;elx+1 elysl;elx е1у+1;е1х+1 ely]; 
for i-1:4 
if(aa21(i,:)»0&aa21(i,1)«-nelx«1&aa21(i,2)«-nely«1) 
sum21-sum21«G3 (aa21 (1,2) ,aa21(i,1)); 
ММ21=ММ21+1; 
епа 
епа 
G(ely,elx)-sum21/MM21; 
end 


end 
for ely = 1:nely 
for elx = 1:nelx 
G1=G1+ (2/ (dU (ely, elx) +001 (ely, e1x))) *G(ely, elx) ; 
G2=G2+G (ely, elx) “2; 
end 
end 


function [U,U2,G, freq, lambda] =FE(nelx,nely,xold) 
%-- 
% FE-ANALYSIS 


[KE,Me] = 1k1; 
K = sparse(3*(nelx+1)*(nely+1), 3*(nelx+1)*(nely+1)); M= 
sparse(3*(nelx+1)*(nely+1), 3*(nelx+1)*(nely+1)); 
F = sparse(3*(nely+1)*(nelx+1),1); 
Fl=sparse(3*(nely+1)*(nelx+1),3*(nely+1)*(nelx+1)); 
U = sparse(3*(nely+1)*(nelx+1),1); 01 = 
sparse (3* (пе1у+1) * (ne1x«1) ,3* (nely«1)* (nelx+1)); 
for elx = 1:nelx 
for ely = 1:nely 
nl = (nely+1)*(elx-1)+ely; 
n2 = (nely+1)* elx +ely; 
edof = [3*п1-2;3*п1-1;3*п1;3*п2-2;3*п2-1;3*п2;3*п2+1;3*п2+2;3*п2+3; 
3*n141;3*n142;3*n143]; 
K(edof,edof) = K(edof,edof) + ((xold(ely,elx)^3)/((0.01)^3))*KE; 
M(edof,edof) =M(edof, edof) + ( (xo1d(ely,elx))/(0.01))*Me; 
ená 
end 
% DEFINE LOADS AND SUPPORTS (HALF MBB-BEAM) 
F(3*(0.5*nelx* (nely+1)+0.5*nely)+1,1) = -10000; 
fixeddofs = union([1,3* (nely«1) -2], [3* (ne1x) * (nely+1) +1, 3* (ne1x«1) * (nely«1) -2]) ; 
alldofs = [1:3* (пе1у+1) * (ne1x«1) ] ; 
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freedofs = setdiff(alldofs, fixeddofs) ; 
$ SOLVING 
U(freedofs 
U(fixeddofs, 


= K(freedofs,freedofs) X F(freedofs, 
0; 


% compute eigenvalues and eigenvectors 
[V,D] =eigs (K(£reedofs, freedofs), M(freedofs,freedofs),1,'SM'); 
[1ambda,Kt]-sort (diag(D)); 
Factor-diag(V(:,1) '*M(freedofs, freedofs) *V(:,1)); 
Vnorm-V(:,1)*inv(sqrt (diag(Factor))); * normalize eigenvector 
freq-sqrt (lambda) / (2*pi) ; 
Vi=zeros (3* (пе1у+1) * (nelx+1) ,1) ; 
V1 (freedofs, : 
V1 (fixeddofs 
for elx = 1:nelx 
for ely = 1:nely 
nl = (nely+1)*(elx-1)+ely; 
n2 = (nely+1)* elx +ely; 
edof = [3*n1-2;3*n1-1;3*nl1;3*n2-2;3*n2-1;3*n2;3*n2+1;3*n2+2;3*n2+3; 
3*п1+1;3*п1+2;3*п1+3]; 
К1=3* ((xold(ely,e1x)^2)/((0.01)^3)) *KE; 
М1= (1/ (0.01)) *Me; 
G(ely,elx)-[V1 (edof, 1) '* (K1-1ambda (1) *M1)*V1 (edof,1)]; 
end 


if((i--3*(0.5*nelx* (пе1у+1) +0.5*пе1у) -2) | (i--3*(0. 5*nelx* (nely+1) 
*0.5*nely)«1)) 
Р1(1,1)=-1; 
02 ( [£reedofs] ,i)-K(freedofs, freedofs) \ F1( [freedofs],i); 
$ obtain unit virtual load vectors 
U2([fixeddofs],i)- 0; 
end 
$ Ul(:,[fixeddofs])-0; 
end 


function [KE,Me] = 1К1 
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density=7800; 
k1-21-6*miu«30*b^2/a^2430*a^2/b^2; 
k2=8*b*2-8*miu*b*2+40*a*2; Е 
k3-8*a^2-8*miu*a^2440*b^2; 
k4=3*b+12*miu*b+30*a*2/b; 
k5=3*a+12*miu*a+30*b*2/a; 
k6-30*miu*a*b; 
k7--21«6*miu-30*b^2/a^2415*a^2/b^2; 
k8z-8*b^248*miu*b^2420*a^2; 
k9--2*a^242*miu*a^2420*b^2; 
k10--3*b-12*miu*b«15*a^2/b; 
k11-3*a-3*miu*a«30*b^2/a; 
k12-21-6*miu-15*b^2/a^2-15*a^2/b^2; 
k13-2*b^2-2*miu*b^2410*a^2; 
k14-2*a^2-2*miu*a^2410*b^2; 
k15--3*b«3*miu*b«15*a^2/b; 
k16--3*a«3*miu*a«15*b^2/a; 
k17-2-21«6*miu«15*b^2/a^2-30*a^2/b^2; 
k18--2*b^242*miu*b^2«20*a^2; 
k19--8*a^248*miu*a^2420*b^2; 
k20-3*b-3*miu*b«30*a^2/b; 
k21--3*a-12*miu*a«15*b^2/a; 
KE = E*t^3/(360* (1-miu^2) *a*b)*. 
[k1 k4 -k5 k7 k10 -kll.k12 k15 -k16 k17 k20 -k21; 
ка k2 -k6 k10 k8 0 -k15 k13 0 -k20 k18 0; 
-k5 -k6 k3 kil 0 k9 k16 0 kl4 -k21 0 к19; 
k7  k10 kll kl k4 k5 К17 К20 k21 k12 kl15 kl6; 
k10 k8 0 k4 k2 k6 -k20k18 0 -k15 k13 0; 
-k11 0 k9 k5 k6 k3 k21 0 k19 -ki6 0 k14; 
k12 -k15 k16 k17 -k20 k21 К1 -k4 К5 k7 -k10 k11; 
k15 кїз 0 k20 k18 0 -k4 k2 -k6 -k10 k8 0; 
-k16 0 kl4 k21 0 kl9 k5 -k6 k3 -k11 0 k9; 
k17 -k20 -k21 k12 -k15 -k16 k7 -k10 -kll kl -k4 -k5; 
k20 k18 0 k15 k13 0 -k10 k8 0 -k4 k2 k6; 
-k21 0 k19 k16 0 kl4 kll 0 k9 -k5 k6 k3]; 


Me=zeros (12); 

mass=density* (2*а) * (2*b)*t/25200; 

Me(1,1)=mass*3454; Me(2,1)=mass*(922*b); Me(3,1)=mass*(-922*a); 
Me(4,1 а55*1226; Ме (5;1) =тазѕ* (398*b) ; Ме (6,1) =паѕ5* (548*а); 

Ме (7,1) =паѕ5*394; Ме (8,1) =таѕѕ* (-232*Ь); Me(9,1)-mass*(232*a); 

Ме (10,1) =таѕ5*1226; Ме (11,1) =паѕѕ* (-548*Ь); Me(12,1)-mass*(-398*a); 


Ме (2,2 ass* (320*b^2) ; Ме (3,2) =mass* (-252*a*b) ;Ме (4,2) -mass* (398*b) ; 

Ме (5,2) =тазз* (160*b*2); Me(6,2)-mass* (168*а*Ь); 

Me(7,2)-mass*(232*b); Ме(8,2) =паѕз* (-120*b^2) ;Me (9, 2) -mass* (112*a*b) ;Ме(10,2) 
=mass* (548*b); Me(11,2)=mass* (-240*b^2) ;Ме(12,2) -mass*(-168*a*b) ; 
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Me(9,3 
Me(12,3)-Me(3,3) /2; 


Me(4,4)-Me(1,1); 
Me(7,4) -mass*1226; 
Ме (10,4) =Ме(7,1); 


Ме (5,5) =Ме(2,2); 
Ме (8,5 е (11,2); 
Ме (10,5) =-Ме(8,1); 


Ме (6,6) =Ме (3,3); 
Ме (9,6) =Ме (12,3); 
Ме (11,6) =-Ме(9,2); 


Ме (7,7) =Ме(1,1); 
Ме (10,7) =Ме(4,1); 


Ме (8,8) -Me(2,2); 
Ме (11,8) =Ме(5,2); 


Ме (9,9) =Ме (3,3); 
Ме (12,9) =Ме(6,3); 


Ме (10,10) =Ме(1,1); 


Ме (11,11) =Ме (2,2); 


Ме (12,12) =Ме (3,3); 


2 


for і= 


for j=i:12 


Me(i,j)=Me(j,i); 


-mass* (320*a^2) ;Me(4,3) =-Me(6,1); 
=mass* (-240*a^2) ;Me(7,3)=-Me(9,1); 
=mass* (-120*a^2) ;Me(10,3)-Me(12,1); 


Me(5,4)-Me(2,1); 
Me(8,4)-Me(11,1); 


Me(11,4)-Me(8,1); 
Me(6,5)--Me(3,2); 
Me(9,5)-Me(6,2); 
Me(11,5)-Me(8,2); 
Me(7,6)=-Me(12,1); 
Ме (10,6) =Me(9,1); 
Ме (12,6) =Ме (9,3); 


Ме (8,7) =-Ме(2,1); 
Ме (11,7) =-Ме(5,1); 


Ме (9,8) =Ме (3,2); 
Ме (12,8) =Me(6,2); 


Ме (10,9) =-Ме(4,3); 


Ме (11,10) =-Ме (2,1); 


Ме (12,11) =-Ме(3,2); 


Ме (5,3) =Ме (12,2); 
Ме (8,3) =Ме (9,2); 
Ме (11,3) =Ме(6,2); 


Ме (6,4) =-Ме(3,1); 
Ме (9,4) =-Ме(12,1); 
Ме (12,4) =-Ме(9,1); 
Ме (7,5) =-Ме(11,1); 


Ме (12,5) =-Ме(9,2); 


Ме (8,6) =-Ме(6,2); 


Ме (9,7) --Me(3,1); 


Ме (12,7) =-Ме(6,1); 


Ме (10,8) =-Ме (4,2); 


Ме (11,9) =Ме(5,3); 


Ме (12,10) =Ме(3,1); 


8.21 线 


于 二 次 型 性 能 指标 具有 鲜明 的 物理 意义 ， 
求 ， 并 且 在 数学 处 理 上 比较 简单 ， 可 得 到 


8.2 结构 振动 控制 


二 次 型 最 优 控 制 
若 系统 是 线性 的 ， 性 能 指标 为 二 次 型 函数 ， 


则 最 优 控制 问题 称 为 线性 二 次 型 问题 . 由 
它 代表 了 大 量 工程 实际 问题 中 提出 的 性 能 指标 要 
状态 线性 反馈 的 最 优 控制 规律 ， 易 于 构成 闭环 最 
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优 控制 ， 便 于 工程 实现 ， 因 而 在 实际 工程 问题 中 得 到 了 广泛 应 用 . 
1. 线性 二 次 型 (LQR) 经 典 最 优 控制 


假设 线性 时 不 变 系统 的 状态 方程 模型 为 
(0) = ах()+ Ви(), х(һ)=х, (8-15) 
设计 最 优 控制 控制 规律 a(1)(re [e „Јат LJ kE 
Jape (t,)Sx(t,)+ ib bà (00(0x(0)w (1) R(t) u(r (8-16) 


AP: зенне невина ананан, 半 正 定 对称 和 矩阵 @ 和 正定 
对 称 矩 阵 R 为 对 状态 变量 和 输入 变量 的 加 权 和 矩阵 . 为 使 问题 简化 ， 几 个 权 和 矩阵 通常 选 为 对 
РЕ. 
构造 哈密 顿 函数 万 为 
Hx 4) ()0(д)х()+ u (NRE) ul) +27 (r 4x0) ВЩ(г)] (8-17) 
НОРЫ u(r) ФЗ, W E PRE 30030 8 RT UL HH Ж H ХТ и АО Sh MK p 77 


程 得 出 
oH 


gu #\@)ч()+В'А()=0 (8-18) 
由 此 可 以 得 出 最 优 控制 信号 a (r) GZ u` (t) ) 如 下 
u’ (t)=-R" (r) B'A(r) (8-19) 
BEA (t) 具有 如 下 的 形式 
A(t)=P(t)x(0) (8-20) 
RP, P(t) 为 对 称 矩阵 ， 它 满足 下 面 著名 的 Riccati 微分 方程 
P(r--P(r4-A'P(r*P()BR^B'P()-Q. P(/)=S (8-21) 


由 于 在 具有 工程 实际 意义 的 相当 长 的 时 间 内 ， 有 户 (1)=0 ， 从 而 求解 Riccati 微分 方程 
的 问题 转化 为 求解 如 下 的 Riccati 代数 方程 


—P(t)A—A'P(t)+ P(t)BR'B' P(t)-Q=0 (8-22) 
则 这 段 时 间 内 的 最 优 控制 (z) 可 表示 为 
и (t) =-R'' (t) B' Px(r) = -Kx(r) (8-23) 
其 中 x(1) 满足 如 下 线性 齐 次 方程 Р 
(0) =(4- BK)x(r) (8-24) 


以 及 相应 的 初始 条 件 : х(0) = x. 

控制 系统 工具 箱 中 通过 lqr0 函 数 在 给 定 加 权 和 矩阵 前 提 下 设计 LOR 最 优 控制 器 ， 该 函 
数 的 调用 格式 为 

K=lqr(A, B, О, R) 

ІК, P]-lqr(A, B, О, R) 

ІК, P, E]-Iqr(A, B, О, R): E 为 闭环 系统 [(A-BK), B, C, D] 的 特征 值 . 
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【 例 8.7】 平面 柱 架 结构 如 图 8.15 所 示 ， 两 个 作 动 器 的 作 动力 分 别 作用 在 垂直 方向 
和 水 平方 向 , 结构 参数 为 : E=2.0x10"N/m?, p=7860kg/m', А=0.00025т?. 假设 初 
始 位 移 扰动 为 x(0)=[0.1,0, 0, 0.2,—0.2,0, 0,0,0,0,0,0,0,0.0,0,0,0] ， 控 制 前 后 节点 
2 的 水 平和 垂直 位 移 如 图 8.16(a)、(b) 所 示 . 两 个 作 动 器 的 输入 电压 分 别 如 图 8.17(a). (b) 
所 示 . 


‘Actuator T 


4m 4m hi 


= + мы — 


(a) 水 平 位 移 (b) 垂直 位 移 
图 8.16 控制 前 后 节点 2 的 水 平和 垂直 位 移 
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(a) 水 平 布置 的 作 动 器 (b) 垂直 布置 的 作 动 器 
818.17 作 动 器 的 出 力 曲 线 
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% Example 8.7 
$ to solve LOR design of 2-4 truss structure 

$ 

% Problem description 

% Find LQR design of a truss structure as shown in Fig. 8.6 

* 

% Variable descriptions 

element stiffness matrix 

element mass matrix 

system stiffness matrix 

mm = system mass vector 

index = a vector containing system dofs associated with each element 


prop = element property matrix 

nodes = nodal connectivity matrix for each element 

bcdof - a vector containing dofs associated with boundary conditions 

bcval - a vector containing boundary condition values associated with 
the dofs in 'bcdof' 


* 
LI 
+ 
% 
% 
%  gcoord = global coordinate matrix 
* 
g 
% 
% 
% 


% number of elements 

% number of nodes per element 

% number of dofs per node 

% total number of nodes in system 
sdof=nnode*ndof; $ total system dofs 


gcoord(1,1)=0.0; 


gcoord(1,2 
gcoord(2,1)=4.0; gcoord(2,2 
gcoord(3,1)=4.0; gcoord(3,2 
gcoord(4,1)-8.0; gcoord(4,2)- 
gcoord(5,1)-8.0; gcoord(5,2)- 
gcoord(6,1)-12.0; gcoord(6,2)-0.0; 


$ elastic modulus 
prop(2)-0.0025; % cross-sectional area 
prop (3) =7860; % density 
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nodes(1,1)=1; nodes(1,2) 
nodes (2,1) =1; nodes(2,2 
nodes (3,1 nodes (3,2 
nodes (4,1 nodes (4,2 
nodes (5,1 nodes (5,2) = 
nodes(6,1 nodes (6,2 
nodes (7,1 nodes (7,2) =5; 
nodes (8,1 
nodes (9,1) =5; 


* 


bcdof (1) =1; % 1st dof (horizontal displ) is constrained 
beval (1) =0; % whose described value is 0 


bedof (2 $ 2nd dof (vertical displ) is constrained 
beval (2 % whose described value is 0 

bcdof (3 2; % 12th dof (horizontal displ) is constrained 
beval (3) =0; % whose described value is 0 

%-- 

% 

m RENE i US 

kk=zeros (sdof, sdof) ; $ system stiffness matrix 
mm=zeros (sdof, sdof) ; % system mass matrix 
index=zeros (nnel*ndof,1) ; % index vector 

%- 

% loop for elements 

| eere as te 


for iel-1:nel $ loop for the total number of elements 


nd(1)-nodes(iel,1); % 1st connected node for the (iel)-th element 
nd(2)-nodes(iel,2); % 2nd connected node for the (iel)-th element 


Xl-gcoord(nd(1),1); yl=gcoord(nd(1),2); % Coordinate of 1st node 
x2=gcoord(nd(2),1); y2-gcoord(nd(2),2); % Coordinate of 2nd node 


leng-sqrt((x2-x1)^2«(y2-y1)^2); $ element length 


if (x2-x1) 
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beta=2*atan(1); % angle between local and global axes 
else 

beta-atan((y2-y1)/(x2-x1)); 

end 

el-prop(1); $ extract elastic modulus 
area-prop(2); $ extract cross-sectional area 
rho-prop(3); $ extract mass density 


index-feeldof(nd,nnel,ndof); % extract system dofs for the element 


їрє=1; % flag for consistent mass matrix 
{k,m]=fetruss2 (el, leng, area, rho,beta,ipt); $ element matrix 


kk=feasmb11 (kk, k, index); % assemble system stiffness matrix 
mm=feasmb11(mm,m, index); % assemble system mass matrix 


end 


(kk, mm] =feaplycs3(kk,mm,bcdof); % apply the boundary conditions 


* 


F=zeros (sdofm, 2); 
F(6,1)=1; 
F(7,2)=1; 


zeros(sdofm), eye(sdofm); -inv(mmm)*kkm, zeros (sodfm) ]; 
zeros(sdofm, 2); inv(mmm)*F]; 
10000000 0]; 


.00001*eye(2); 
(К, Pl-lqr(A, В, Q, R) 
a--- 
$ response comparison for the open-loop system and the close-loop system 
$-- 
X0-[0.1, 0, 0, 0.2, -0.2, 0, 0, 0, 0, 0, 0 
B, C, D); 


ly, t, х]=іпібіа1 (6, X0, t); 
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Gm=ss((A-B*K), B, C, D); 

[ym, t, xm]-initial(Gm, X0, t); 
u--inv(R)*B'*P*xm 
plot(t, x(:,1), st, xm(:,1)) 

legend('before control','after control') 
xlabel('Tim(sec)', 'FontWeight', 'bold') 
ylabel('Displacement (m) ' , 'FontWeight', 'bold') 
title(' 15 2 的 水 平 位 移 ') 

figure 

plot(t,x(:,2),'-.',t,xm(:,2)) 

legend('before control','after control') 
xlabel('Tim(sec)', 'FontWeight', 'bold') 

ylabel (Displacement (m) ' , 'FontWeight', 'bold') 
title(' 节 点 2 的 垂直 位 移 ') 

figure 

plot (t,u(1,:)) 

xlabel('Tim(sec)', 'FontWeight', 'bold') 
ylabel('Actuation Ғогсе (М) ', 'FontWeight', 'bold') 
title('Horizontal Actuator') 

figure 

plot (t,u(2,:)) 

xlabel('Tim(sec)', 'FontWeight', 'bold') 
ylabel('Actuation Force(N)', 'FontWeight', 'bold') 
title('Vertical Actuator') 

% 
%-- 


$ Purpose: 

% Apply constraints to obtain the final system mass matrix and stiffness matrix 
% 

% Synopsis: 

% [kkm, mm] =feaplycs (kk, mm, bcdof) 


$ 
% Variable Description: 

` kkm- system stiffness matrix after applying constraints 
è mmm- system mass matrix after applying constraints 

* kk - system stiffness matrix before applying constraints 
* 
* 


mm - System mass matrix before applying constraints 
bedof - a vector containging constrained d.o.f 


bedof=sort (bedof) ; 
n=length (bedof) ; 
ј=-1 


for n 


mm(:, (bedof(i)-j))=(]; 
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mm((bcdof(i)-3), :)=[]; 
kk(:, (bcdof(i)-j))=[]; 
kk ((bedof (i)-j), :)=[1; 
end 


2. 线性 二 次 型 Gauss(LQG) 最 优 控制 


设 受 控 线 性 定常 系统 的 状态 方程 为 
(1) = Ах()+ Ви()+2(0) — x(5)9 X (8-25) 
¥(t)=Cx(1) +2, (t) (8-26) 


RP, e (r) Me (0) 为 白 噪 声 信号 ， 分 别 为 对 状态 变量 量 测 与 输出 量 测 的 随机 扰动 . 假设 
(A, C) йо, е (t) Ale, (1) 均 为 零 均值 Gauss 白 噪声 ， 且 有 
Е[&()]=0 E[=()]=0 
Е[ (0) & (0)]=0.5(0-т) 09-9 70 (8-27) 
; E[e()e()]-Ré(-?) R, =R! >0 
Rp, Eepe. 
К 根据 LOG 问题 的 分 离 原理 ， 首 先 采用 LOR 最 优 控制 算法 设计 全 状态 反馈 最 优 控制 
u(t), B 
i u(t)=-Kx(1) (8-28) 
然后 根据 结构 的 观测 输出 ， 采 用 Kalman 滤波 器 估计 结构 的 全 部 状态 . 为 此 ， 选 取 如 下 目 
标 函 数 


J. -E[ist)- s] o-o] (8-29) 
RP, a(r) 是 状态 x(1) 的 估计 . 由 此 构造 Kalman 滤波 器 六 
#=Аў+Ви+К,(у-ў) 六 (6) = (8-30) 
j= (8-31) 
P, Kalman 滤波 器 的 增益 矩阵 К, 可 以 由 下 式 得 出 
K, = P.C'R;' (8-32) 
式 中 ， 忆 满足 下 面 的 Riccati 代数 方程 
P A" + AP, -РС'ЕСР +Q, =0 (8-33) 
最 后 ， 系 统 的 最 优 控制 可 以 表示 为 状态 估计 的 反馈 
u(t)=-K&(t) (8-34) 
将 式 (8-34) 代 入 式 (8-25) 得 到 受 控 系 统 的 状态 方程 为 
¥=(A-BG-K,C)&+K.y — x(t)—X, (8-35) 
$= Cç (8-36) 


【 例 8.81 三 层 前 切 型 框架 结构 如 图 8.18 所 示 ， 设 结构 层 间 质量 和 层 间 刚度 分 别 为 
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m, =4х10°Кв Fk, = 2x10°N/m (i=1,2,3). 结构 阻尼 矩阵 C=0.7334M +0.0026K . 结构 的 
外 干扰 为 EI Centro (NS，1940) 地 震波 ， 地 震 输 入 峰值 为 200Gal , 地 震 作 用 位 置 矩阵 
р,=-М{1}, 3h [) 是 元 素 均 为 1 的 列 向 量 . Tiit Q, - E[ e (t) в (т)]=10*, 
1-00 
R, =Е[ e, (t) sr (7)] 210? 1. mre 1 ч 
0 0 1 


LOR 方法 进行 控制 ， 第 一 层 位 移 的 计算 比较 如 图 8.19 所 示 . 


- 分 别 采 用 LQG 和 


0.01 


E 
* LQG control 
——LQR control 


0.005 


-0.01 


па 1 js 
š 


15 20 25 30 
时 间 /s 


图 8.19 采用 LQG 和 LQR 方法 进行 控制 的 第 一 层 位 移 的 计算 比较 
M 文件 如 下 : 
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% Ex.8.8 


M-4e5*eye(3); kl 
K=[k1+k2, -k2, 0; -k2, k2«k3, -k3; 0, -k3, k3]; 
C-0.7334*M«0.0026*K; 

0; 0, 1, -1; 0, 0, 1]; 

1); 

A-[zeros(3), eye(3); -inv(M)*K, -inv(M)*C]; 
B=[zeros(3); inv(M)*Bs]; 
D-(zeros (3,1) ;inv(M) *Ds] ; 

Q=100*[K, zeros(3); zeros(3), М]; 
R-5e-6*eye(3); 

G-lqr(A, B, Q, R); 
000100;000010;000001); 
Qe=le-4; 

Re=le-2*eye (3); 

Ke-lqe2(A, D, C0, Qe, Re); 
Am=A-B*G-Ke*CO*A+Ke*CO*B*G; 

Amm=inv (eye (6) -Ке*С0) *Am; 

Bmm=D; 

load BO.txt.dat 

Xg=BO(:,2) 

Xg=Xg (1:1501); 

Xg=Xg/max (Xg) *2; 

X0=zeros (6,1); 

Cl=eye (6); 


Gl=ss (Amm, Bmm, C1, DO); 
t=0:0.02:30; 

ly, t, x]=lsim(G1, Xg, t, X0); 
G2=ss (A-B*G, Bmm, C1, DO) ; 

[у1, ti, xl]-lsim(G2, Xg, t, X0); 


hold on 

plot(t, x(:,1), '*') 
plot(t, x1(:,1)) 
hold off 


legend('LQG control', 'LQR control') 
xlabel(' 时 间 /s') 
ylabel ( ' 第 一 层 位 移 /m' ) 


822 ”线性 定常 系统 的 极点 配置 
通过 采用 极点 配置 的 方法 使 系统 的 闭环 极点 配置 在 所 期 望 的 位 置 上 ， 从 而 达到 一 定 的 
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性 能 指标 要 求 . 由 于 状态 反馈 不 能 改变 系统 的 不 可 控 模 态 ， 因 此 系统 通过 状态 反馈 可 以 任 
意 配置 闭环 极点 的 必要 条 件 为 受 控 系统 完全 可 控 . 

控制 系统 工具 箱 提 供 了 基于 和 鲁 棒 极 点 配置 算法 的 place() 函 数 ， 用 来 求 取 状态 反馈 矩 
阵 ， 其 调用 格式 为 

K = place(A,B,P) 
函数 中 参数 P 为 包含 期 望 极点 位 置 的 向 量 ， 返 回 的 变量 K 为 状态 反馈 向 量 . 

【 例 8.9】 对 例 8.8 的 结构 采用 极点 配置 进行 控制 ， 要 求 闭环 系统 特征 值 配置 为 ; 


[-1.8218+9.9378i —5.1043+27.8451i -7.5273 土 40.2094i] ， 则 控制 前 后 第 一 层 
位 移 曲线 如 图 8.20 所 示 . 

0.025 — 

бИ 


1 
491 0 15 20 25- 30 
时 间 /s 
图 8.20 控制 前 后 的 第 一 层 位 移 曲线 


M 文件 如 下 : 


M-4e5*eye(3); kl=2e8; К2=К1; k3=k2; 

K-[kl«k2, -k2, 0; -k2, k2+k3, -k3; 0, -k3, k3]; 
С=0.7334*М+0.0026* 
Bs=[1, -1, 0; 0, 1, -1; O, 0, 1]; 
Ds=-M*[1;1;1]; 

A=[zeros(3), eye(3); -inv(M)*K, -inv(M)*C]; 
B-[zeros(3); inv(M)*Bs]; 

CO-eye(6); 
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D0=0; 
D=[zeros(3,1);inv(M)*Ds]; 
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lambdal=[-1.8218+9.9378*i, -1.8218-9.9378*i, -5.1045427.8451*i,... 


-5.1045-27.8451*i -7.5273+40.2094*1, -7.5273-40.2094*i]; 
Phl=inv (lambdal (1) *eye (6) -A) *B; 

Ph2=inv (lambdal (2) *eye (6) -A) *B; 
Ph3=inv(lambdal (3) *eye (6) -A) *B; 

Ph4=inv (lambdal (4) *eye (6)-А) *B; 

Ph5=inv (lambdal (5) *eye (6) -A) *B; 

Ph6=inv (lambdal (6) *eye (6) -A) *B; 

е=[1, 1, 0, 0, 0, 0; 0, 0,1, 1, 0, 0; 0, 0, 0, 0, 1, 1]; 
Ke--e*inv([Phl(:,1) Ph2(:,1) Ph3(:,2) Ph4(:,2) Ph5(:,3) 
Ке=геа1 (Ке); 

load BO.txt 

xg=BO(:,2) 

xg=xg(1:1501) 

xg=xg/ (max (xg) ) *2; 

X0=zeros (6,1); 

G=ss(A,D, CO, DO); 

Gl=ss(A-B*Ke, D, CO, 00); 

t=0:0.01:15; 

(у, t, x]-lsim(G, xg, t, X0); 

(yl, t, xl]-lsim(Gl, xg, t, X0); 

plot(t, x(:,1), '-.', t, x1(:,1)) 

legend('before control', 'after control') 

xlabel(' 时 间 /s') 


Ylabel(' 第 一 层 位 移 /cm' , ) 


8.23 ”线性 定常 系统 的 模 态 控制 


:,3)1); 


由 振动 理论 可 知 ， 系 统 或 结构 的 振动 可 以 将 它 置 于 模 态 空间 来 考察 ， 其 在 时 间 域 内 的 
振动 通常 可 以 用 其 在 模 态 空间 内 的 前 几 阶 模 态 的 振动 近似 描述 . 这 样 ， 结 构 在 时 间 域内 的 
振动 控制 可 转化 为 在 模 态 空间 内 少数 几 个 模 态 的 振动 控制 ， 这 就 是 振 型 (也 即 模 态 ) 控 制 ， 


模 态 控制 的 方法 可 分 为 模 态 看 合 空间 控制 法 和 独立 模 态 空间 控制 (MSC) 法 . 


对 于 结构 振动 问题 ， 直 接 由 结构 运动 方程 得 到 振 型 ( 模 态 ) 更 为 方便 ， 也 具有 更 明确 的 
物理 意义 . 因此 ， 按 结构 动力 学 的 方法 将 运动 方程 转化 为 广义 坐标 方程 ， 然 后 由 广义 坐标 


方程 写 出 状态 方程 ， 即 可 按 上 述 方法 确定 最 优 控制 力 向 量 . 
考虑 以 下 自由 度 受 控 系统 的 运动 方程 : 
мй (1) +С4(0) + ка() = Bu(r) 
4%)=% 40) =4 
ИЖА) Ф, 作 模 态 变换 
4()- ex(n 


(8-37) 
(8-38) 


(8-39) 
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RP, s()e[n() z(t) … 二 (0 是 系统 的 广义 模 态 坐标 向 量 . 将 式 (8-39) 代 入 方程 
式 (8-37)， 然 后 左 乘 @B" ， 并 假定 阻尼 矩阵 C 关于 模 态 矩阵 @ 正 交 ， 则 得 广义 模 态 坐标 运 
动 方程 
M'ü(ry*Ca()* K'a(-v (0) (8-40) 
其 中 
M’ =diag[ М; |]=Ф'МФ 
С =diag[ C; ]- 9C 
K' =diag[ K; ]- 6" Ko 
U` (r) =Ф'Ви(г) = Lu(t) 
At, L=@'B nx p Е, р 是 控制 器 数目 . 
假定 仅 考 虑 结构 系统 的 个 广义 模 态 坐 标 ( n. 入 2)， 并 在 相应 的 矩阵 和 向 量 下 用 下 标 
< 标记 ， 则 其 相应 的 广义 模 态 坐标 运动 方程 为 
Mä. (+С, (0) + Kia (0) UL (0) (8-42) 
从 式 (8-42) 出 发 ， 总 可 以 由 某 种 控制 算法 求 得 最 优 控制 力 向 量 
и(ф=[и\@ф) ша) < ш, [OE 


(8-41) 


并 可 表示 为 
деа fe ва 0-6,4) вау 
4.00) 
式 中 ，G. =[G， б] HHRH n, хоп, ЕЙ Ий БИЙИНЕ. 

СЯ 8101 耦合 模 态 空间 控制 ， 空间 36 杆 智能 杭 架 结构 如 图 8.5 所 示 ， 普通 构件 的 
质量 密度 和 杨 氏 弹性 模 量 分 别 是 2710 kg/m" 和 70GPa ， 横 截面 面积 为 0.0025m2 . 压 电 主动 
构件 的 两 连接 杆 的 长 度 相 同 ， 其 质量 密度 、 杨 氏 模 量 和 横 截面 面积 分 别 是 8000kg/m? ~ 
210GPa #1 6.9х10°т?. 压 电 堆 的 质量 密度 、 杨 氏 模 量 和 横 截面 面积 为 7600kg/m’ 、 
63GPa 和 7.07x10“*m? iti 490 块 贺 形 压 电 注 片 合 成 ， 相 应 有 效 长 度 为 0.56m ， 等 效 的 应 
Же, H 1746N/(V-m) . 初始 扰动 失 量 等 效 于 在 节点 12 的 у 方向 施加 一 大 小 为 
10 000 N 的 力 产生 的 瞬 态 位 移 . 3 个 作 动 器 分 别 配置 在 杆 件 标号 为 7、24 和 26 的 位 置 ， 以 
控制 结构 振动 的 前 6 阶 模 态 . 控制 器 设计 变量 R=1x10” [0.7987 0.8875 0.7917]. 控制 前 


后 节点 12 的 x 方向 位 移 曲线 如 图 8.21 所 示 . 3 个 作 动 器 的 输出 电压 如 图 8.22(a)~(c) 所 示 . 


% Example 8.10 
% optimal control design in the coupling(independent)modal space for 


space 36-bar piezoelectric 

intelligent truss 

Problem description 

the modal control of a 36-bar space intelligent truss as shown in Fig. 8.6 
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% Variable descriptions 

% k= element stiffness matrix 

% m = element mass matrix 

% Kk = system stiffness matrix 

% mm = system mass vector 

% index = a vector containing system dofs associated with each element 
$ gcoord = global coordinate matrix 

% nodes. = nodal connectivity matrix for each element 

$  bcdof a vector containing dofs associated with boundary conditions 
% beval 

* 


a vector containing boundary condition values associated with 
the dofs in 'bcdof" 


=[7 24 26); % the actuator positions 
R = 1.0e-003 *[0.7987 0.8875 0.7917]; % the control gains 


$- 
% initialize structural parameters 
和 
пе1=36; % number of elements 

ппе1=2; % number of nodes рег element 
ndof=3; % number of dofs per node 
nnode=12; % total number of nodes in system 


-nnode*ndof; % total system dofs 


gcoord-[0 0 0;1 0 0;1 1 0;0 1 0;... 
001;10 1;1 1 1;0 1 1;... 
0 0 2;1 0 2;1 1 2;0 1 2] 


РЕА DEO IDE быкын 
nodes=zeros (36,2); 

nodes (1,1) nodes (1,2) =5; 
nodes (2,1) = nodes (2,2) -6; 
nodes (3,1 E nodes (3,2) -7; 
nodes (4,1) =4; nodes (4,2) -8; 
nodes (5,1 nodes (5,2) 26; 
nodes (6,1)= nodes (6,2) -7; 
nodes(7,1 nodes (7,2)-8; 
nodes (8,1 nodes (8,2) =8; 
nodes (9,1) =6; nodes (9,2) =8; 
nodes (10,1) = nodes (10,2) -7; 
nodes(11,1)-1;  nodes(11,2)-8; 


ды — — o 
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nodes (12,2)=5; 
nodes (13,1) nodes (13,2) -7; 
nodes (14,1) nodes (14,2)-8; 
nodes(15,1)-3;  nodes(15,2)-6; 
nodes(16,1)-2;  nodes(16,2)- 
nodes (17,1 ;  nodes(17,2)- 
nodes(18,1)-1; | nodes(18,2)-6; 


nodes (12,1) = 


for i- 
for j=1 


:18 


nodes (i*18+j,1)=nodes(j,1)+4*i; 
nodes (i*18+j,2)=nodes(j,2)+4*i; 
end 
end 


% applied constraints 
&-- 
for i-1:12 
bedof (i) =i; 
beval (i) =0; 
end 
nco! 


ength (bcdof) % the number of constraint degrees of freedom 


% initialization to zero 


ннен se 
leng=zeros(nel,1); % element length 

beta-zeros(nel,1); % angle between local and global axes 
ff=zeros (sdof,1); $ system force vector for initial disturbance 
kk=zeros (sdof, sdof) ; % system stiffness matrix 

mm=zeros (sdof, sdof) ; % system mass matrix 

index-zeros (nnel*ndof,1); % index vector 
k-zeros(nnel*ndof,nnel*ndof); % element stiffness matrix 


m-zeros(nnel*ndof,nnel*ndof); % element mass matrix 
BO=zeros (sdof,nel); 
$ total possible assigned matrix for piezoelectric actuators 


B=zeros ( (sdof-ncon) , nact) ; % the actuator distributing matrix 
ГОЦЕ eee E 

% applied nodal force 

LE ЦЕРА 

££(35,1)=10000; % 12th node has 10000 N in y- direction 

Bea at: aaa mien Sa 


% loop for elements 


—— —r 


:nel $ loop for the total number of elements 
jodes(iel,1);  $ 1st connected node for the (iel)-th element 
одеѕ (іе1,2);  $ 2nd connected node for the (iel)-th element 


xl-gcoord(nd(1),1); yl=gcoord(nd(1),2); zl-gcoord(nd(1),3); 
$ coordinate of 1st node 
x2-gcoord(nd(2),1); y2-gcoord(nd(2),2); z2-gcoord(nd(2),3); 
% coordinate of 2nd node 


leng(iel)-sqrt((x2-x1)^2«(y2-y1)^2«(z2-21)^2); $ the length for 
(iel)-th element 


c (iel)-sqrt((x2-x1)^2)/leng(iel); 
s(iel) =sqrt ((y2-y1)*2)/leng(iel) ; 
r(iel)=sqrt ((z2-z1)^2)/leng (iel); 


for i=1:length(D) 
if D(i) el 


[k,m] =fetruss31(leng(iel),c(iel),s(iel),r(iel)); 
% compute element stiffness and mass matrix of piezoelectric bar 


else 
е1-7.2е10; I % elastic modulus 
area=0.0025; % cross-sectional area 
rho-2710; è mass density 


[k, m] =fetruss3 (el, leng (iel) ,area, rho,c(iel),s(iel),r(iel)); 


end 
end 


index-feeldof(nd,nnel,ndof); % extract system dofs for the element 


kk=feasmb11 (kk, k, index); % assemble into system stiffness matrix 
mm-feasmbll(mm,m, index); $ assemble into system mass matrix 


[kk,ff]-feaplyc2(kk,ff,bcdof,bcval); % apply the boundary conditions 
disp=kk\ ff; % solve the matrix equation to find nodal 
displacements 


disp-disp(13:sdof); 
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kk1=kk(13:sdof,13:sdof) ; 
mm1=mm(13:sdof,13:sdof) ; 

[V,D1]-eig(kkl,mml); % compute eigenvalue and eigenvector 
[1ambda, к] -sort (diag(real((D1)))); 

V-real(V(:,k)); 

Factor=diag(V'*mm1*Vv) ; 

Vnorm=V* inv (sqrt (diag (Factor) ) ) ; % normalize eigenvector 
natfreq-sqrt (lambda) /(2*pi) ; 

nt=inv(Vnorm) *disp; 

nt=real (nt); 


g 
% determine the actuator distributing matrix,including two step: 
% first step: to determine system distributing matrix 

$ second step: extract actuator distributing matrix 


for i=l:nact 
if rem(leng(D(i)),sqrt(2))--1 
ВО (3*nodes (D(i),1)-2,D(i)) -0.3875588*c(D(i)); 
BO (3*nodes (D(1),1)-1,D(i))--0.3875588*s (D(i)); 
ВО (3*nodes(D(i),1),D(i)) 0.3875588*r(D(i)); 
BO (3*nodes (D(1),2)-2,D(i))--0.3875588*c(D(i)); 
BO (3*nodes (D(1),2)-1,D(i))2-0.3875588*s (D(i)); 
ВО (3*nodes (D(i),2),D(i)) 0.3875588*r(D(i)); 


else 
ВО (3*nodes (D(1),1)-2,D(i) 0.6454421*c(D(i)); 
ВО (3*nodes (D(1),1)-1,D(i)) 0.6454421*s (D(i)); 
B0 (3*nodes (D(i),1) +D(i))=-0.6454421*r(D(i)); 
ВО (3*nodes (D(1),2)-2,D(i) 2-0.6454421*c(D(i)); 
ВО (3*nodes (D(i),2)-1,D(i) 0.6454421*s (D(i)); 
B0 (3*nodes (D(i) :2) ,D(i))--0.6454421*r(D(i)); 


for i-1:nact 
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sdof-ncon) 
=BO((k+ncon),j); 


% compute modal control force and nodal displacements 

% based on couple mode control 
ds apy... 
nem: % the number of controlled modes 


A=[zeros (ncm) eye(ncm) 
-diag(lambda(1:ncm)) zeros(ncm)]; 

B1=[zeros (ncm, nact) 
Vnorm(:,1:ncm)'*B]; 


* 
% judge whether the system is controlled 
&---- 
indexcoi 


=ctrb(A, B1); 
rankc=rank (indexcon); 


:0.001:1; 

/0.001«1; 

eros ( (sdof-ncon) ,n) ; 
xlezeros((sdof-ncon),n); 
Czeye (2*ncm) ; 
D2-0; 

$-- 


for i-(ncm«1): (2*ncm) 
q(i,1)-0.0; 
end 


yb-initial(ss(A,B1,C,D2),q,t); % the modal state vector before control 
for i-1:ncm 
Q(i,1)=real ( (lambda(i))); 


end 

for i-(ncm«1): (2*ncm) 
Q(i,1)-1; 

end 
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Q=diag(Q); 
Rl-diag(R); 
(ke, P] -lar(A,B1,Q, R1); 
Al-A-Bl*kc; 
initial(ss(A1,B1,C,D2),q,t); 


% applied volatges 


x-Vnorm(:,1:ncm)*yb(:,1:ncm)'; % compute nodal displacement before control 
xi-Vnorm(:,1:ncm)*yc(:,1:ncm)'; $ compute nodal displacement after control 


plot(t,x(23,:),'-.',t, x1(23,:)) 
legend('before control','after control') 
xlabel('Tim(sec)', 'FontWeight', 'bold') 
ylabel('Displacement (m) ', 'FontWeight', 'bold') 
title(' 节 点 12 的 Y 方 向 位 移 ') 

figure 

plot (t,u(1,:)) 

xlabel('Tim(sec)', 'FontWeight', 'bold') 
ylabel('Actuation Voltage(V)','FontWeight','bold') 
title(' 杆 号 7 的 作 动 器 ') 

figure 

plot (t,u(2,:)) 

xlabel ('Tim(sec) ', 'FontWeight', 'bold') 
ylabel('Actuation Voltage(V)','FontWeight', 'bold') 
title(' 杆 号 24 的 作 动 器 ') 

figure 

plot (t,u(3,:)) 

xlabel ('Tim(sec) ', 'FontWeight', 'bold') 
ylabel('Actuation Voltage(V)', 'FontWeight', 'bold') 
title (‘FES 26 的 作 动 器 ') 


% Purpose: 
Stiffness and mass matrices for piezpelectric element 


* 
% 
% Synopsis: 

+ [k, m] =fetruss31(leng,c,s,r) 
* 

+ 


Variable Description: 
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E k - element stiffness matrix (size of 6x6) 
% m- element mass matrix (size of 6x6) 

$ leng - element length 

E с,з,г - direction cosine between global coordinate and local coordinate 
+ 

% Опе assumption: the lengths of two connected bars are same 

* 

e= ç 
е11=210е9; % Young's module of connected bars 
rho1=8000; % mass density of connected bars 
areal=6.9e-5; % cross-section area of connected bars 
e12=63e9; % Young's module of piezoelectric stack 
rho2=7600; % mass density of piezoelectric stack 
area2=7.07e-4; % cross-section area of piezoelectric stack 
leng2=0.56; 

kl=areal*e11/((leng-leng2)/2); 


k2- (area2*e12) /1eng2; 

k12- (k1^2*k2) / (2*k1*k2«4k1^2); 

m12-rhol*areal* (leng-leng2) +rho2*area2*leng2; 
% total mass of piezoelectric active member 

% stiffness matrix 


k-[k13 -k13;-k13 k13]; 
$ lumped mass matrix 


m-m12/3*eye(6); 


Displacement(m) 


4 5 67 89 
Time(sec) 


图 821 控制 前 后 节点 12 的 x 方向 位 移 曲线 
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UM 杆 号 7 的 作 动 器 


40 


Activation Voltage(V) 
= 


-40 ] 
0 зз 5 6 7-3 5-10 
Time(sec) 
(a) 杆 号 7 的 作 动 器 
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Н 号 
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Time(sec) Time(sec) 


8.22 ” 作 动 器 输入 的 电压 曲线 
8.3 结构 边界 参数 优化 设计 


多 数 工程 结构 是 受 约束 结构 ， 通 过 特定 的 边界 与 其 他 的 物体 相连 接 . 边界 结构 对 结构 
系统 的 动力 学 特性 作用 明显 ， 且 结构 边界 条 件 的 参数 对 结构 动力 学 特性 的 影响 也 比 结构 内 
部 的 参数 更 为 敏感 ， 因 此 在 一 定 程度 上 对 结构 系统 动力 学 特性 的 要 求 可 通过 边界 条 件 的 设 
计 来 达到 . 由 于 边界 条 件 的 设计 变量 数 一 般 要 比 结构 内 部 的 参数 少 ， 并 且 有 的 结构 因 设 计 
功能 和 特定 的 性 能 约束 而 使 得 内 部 结构 不 易 改变 时 ， 利 用 边界 条 件 的 动力 学 设计 来 满足 结 
构 的 动力 学 特性 是 一 个 有 效 的 设计 手段 

对 于 一 个 结构 系统 ， 车 以 M 、K 、C 分 别 代表 n 阶 正定 质量 、 刚 度 、 阻 尼 和 矩阵 ， 并 
以 时 间 函 数 xG). xG). O ple) 分 别 表示 试 件 的 位 移 、 速 度 、 加 速度 和 激励 力 列 阵 
则 系统 运动 方程 为 

M(t) + CX(1) + Kx(t) = p(t) (8-44) 
两 端 进行 伟 氏 变换 ， 并 记 四 为 傅 氏 变量 ， 有 
(K -@ M + joC)X(0) = P(@) (8-45) 
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对 于 工程 结构 ， 阻 尼 一 般 为 小 阻尼 ， 可 认为 C 是 经 典 阻尼 阵 ， 从 而 可 解 得 结构 系统 的 
固有 频率 和 = 他 ，(i=1,2,…,) 及 相应 的 振 型 多. 


由 式 (8-45)， 可 得 系统 的 动 位 移 响 应 为 


л тр 
X(2)- Y dd 


£t k, - т, + jac, (8-46) 


RF, k =p Kø; m =ф Mé; c, - 6/ C6. 

动 位 移 响应 X(@w) 是 反映 结构 振动 的 一 个 表征 量 . 多 数 动 响应 都 可 用 动 位 移 响应 来 表 
ж, ШХ=/®Х, X=-@X . HNH у = DX (也 为 应 力 -位 移 矩阵 )， 因 而 可 用 式 (8-46) 
来 表征 结构 的 动力 特性 . 

式 (8-46) 表 明 ， 载 荷 相 同时 ， 欲 使 设计 边界 条 件 结构 与 要 求 动力 学 特性 的 目标 结构 ( 称 
为 原 结构 ) 或 设计 边界 条 件 结构 ( 称 为 设计 结构 ) 在 有 限 元 模型 相近 的 条 件 下 得 到 相同 的 位 移 
幅 值 ， 要 求 两 者 各 阶 固 有 频率 及 相应 振 型 相同 . 

在 动力 学 优化 设计 时 既 要 满足 若干 阶 频率 一 致 ， 又 要 使 对 应 的 各 阶 振 型 相近 ， 是 十 分 
困难 的 . 因此 ， 从 工程 实际 应 用 出 发 ， 结 构 动力 学 边界 的 优化 设计 采用 使 前 N 阶 固有 频 
率 满足 设计 指标 ， 低 阶 振 型 接近 的 优化 策略 ， 使 设计 结构 的 动 响应 与 原 结构 的 动 响应 接近 
一 致 . 

按照 上 述 的 进行 结构 动力 学 边界 设计 的 优化 策略 ， 可 建立 如 下 的 优化 设计 方法 . 


对 于 一 结构 系统 ， 其 特征 值 方程 为 
КФ= МФА (8-47) 


且 满 足下 列 条 件 
@'M@=I, @'K@= A (8-48) 
xU. K 是 结构 的 刚度 矩阵 ， M 是 结构 的 质量 矩阵 ;可 = [аф -- 办 ] 是 振 型 矩 
BE; Ac diag(af af - 好) 是 频率 矩阵 ;表示 单位 矩阵 . 
对 于 结构 边界 动力 学 设计 问题 ， 且 只 考虑 在 低 阶 范围 内 的 动态 特性 指标 ， 有 
(Кї + K)0" =(М + Mj) A (8-49) 
97 (Mi + M9) =1,, @" (K. +K))@° = A? (8-50) 
AP: M). Ко ЕВО TCT AE BEM 、 天 ?是 除 边界 条 件 外 的 内 部 结构 的 
质量 和 刚度 矩阵 ， 人 Фо 是 设计 结构 的 固有 频率 和 振 型 矩阵 ， e-[4 é gl, 
A} = diag(o af - af), r&n. 
边界 条 件 的 质量 和 刚度 矩阵 则 由 构成 边界 结构 的 结构 参数 六 = [B b, b] UE, DU 
边界 条 件 的 质量 和 刚度 矩阵 是 边界 结构 参数 的 函数 ， 可 表示 为 M2(b) 、 无 *(5) .优化 设计 
通过 逐步 修改 设计 参数 ， 来 改变 边界 条 件 的 质量 和 刚度 矩阵 M2?(5) 、 天 9(6) ， 使 得 所 设 
计 边界 条 件 的 结构 的 动态 特性 指标 AD. Ф TERA. Ф. 
以 固有 频率 接近 要 求 频率 为 约束 条 件 ， 用 范 数 表示 的 低 阶 振 型 差 最 小 为 优化 准则 ， 该 
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优化 问题 可 表示 为 
find b 
min); (во-во). Ј=12-,т (8-51) 
st. &(®Ю=|;-//|<т/; C=12…ND) 
b<b<b, 


At: We у; 为 原 结 构 要 求 的 振 型 、 固 有 频率 9. 为 设计 边界 结构 的 振 型 、 固 有 频 
Ж, Am<N; 亚 、 和 分 别 为 要 求 的 振 型 和 频率 的 阶 数 ，7 为 误差 限 系数 ，b b, 分 别 
为 边界 条 件 设计 变量 的 上 、 下 限 . | 

上 述 优化 问题 为 非 线性 约束 优化 问题 ， 可 用 序列 二 次 规划 法 SQP(Sequential Quadratic 
Programming) 求 解 . 

图 8.23 为 一 简化 的 飞机 机 辟 模 型 ， 用 空间 刚 架 单元 模拟 的 该 结构 有 限 元 模型 如 图 8.24 
所 示 , 该 模型 共有 54 个 节点 ，70 个 梁 单 元 ，6 个 边界 支撑 . 其 中 ，49 一 54 为 边界 上 的 固 
定 节点 ，65 一 70 为 边界 单元 . 机 可 内 部 梁 截 面 尺寸 ;宽度 14mm， 沿 z 向 厚度 4тт; 边界 


支撑 梁 的 截面 尺寸 ， 宽 度 14.8mm， 沿 z 向 厚度 4mm. 梁 材 料 的 参数 为 :合金 钢材 料 ， 弹 
性 模 量 E=2.1x10"N/m?* ， 泊 松 比 v= 0.26 ， 质 量 密度 P —7.8x10 kg/m? . 


图 8.24 PRAIA 
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用 有 限 元 模型 进行 计算 ， 得 到 结构 的 低 阶 固有 频率 和 振 型 见 表 8.4 和 如 图 8.25 Bras. 
#84 ”模拟 机 楼 模型 固有 频率 


阶 数 1 2 = 4 5 
频率 (Hz) | 12.6779 58.6636 72.7598 135.792 165.761 


MA 4 MOAR LR, RET, ШШ 8.26 所 示 . 用 动态 优 


化 设计 方法 设计 梁 的 截面 尺寸 ， 使 得 结构 的 前 5 阶 固有 频率 与 原 结构 一 致 ， 振 型 接近 . Ж 
用 前 述 的 优化 策略 ， 以 支撑 梁 的 截面 参数 作为 设计 变量 zx=[b A] (i=12…,s)， 固 有 频 


素 之 差 作为 约束 条 件 gO- G=) BERRE = 


振 型 与 原 结构 相应 振 型 的 范 数 作为 目标 函数 Ap= Y РСК у=), 设计 
> (2 


的 结构 边界 参数 . 
1th modal shape of the structure 2th modal shape of the structure 
04 
02 
x ® 
-02. 
-04. 
0.5 
0.5 06 
$51 02 03 04 
(a) 一 阶 振 型 (b) 二 阶 振 型 
3th modal shape of the structure 4th modal shape of the structure 


(c) 三 阶 振 型 I (d) 四 阶 振 型 


图 8.25 机 要 的 低 阶 振 型 
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49 43 37 3 25 19 M 


图 8.26 ЯЛЕ 

优化 设计 的 结构 振 型 与 原 结构 振 型 的 一 致 性 可 用 模 态 置信 准则 MAC(Modal Assurance 

Criterion) RAH. 对 于 第 j 阶 模 态 ，MAC 的 表达 式 为 
lore, 

^ (ф'Ф,)(ф)Ф,) 
RP, p 为 原 结构 的 低 阶 振 型 ，g, 为 设计 边界 结构 的 低 阶 振 型 . MAC 的 值 越 接近 于 1, 
振 型 的 符合 程度 越 好 . 

优化 工具 用 MATLAB 优化 工具 箱 的 函数 fmincon， 算 法 为 序列 二 次 规划 方法 
SQP(Sequential Quadratic Programming). 设计 的 两 组 4 杆 支撑 机 票 分 别称 为 设计 结构 1 和 
设计 结构 2， 参 数 见 表 8.5. 


MAC (8-52) 


表 8.5 设计 边界 结构 参数 


一 一 
设计 边界 结构 结构 参数 


0.0148 0.0148 00148 — 0.0148 
0.0044 — 0.0051 — 0.0040 00046 
设计 结构 1 频率 | 12.506 58.186 72725 134.3 16395 
误差 | 136% 081% 0.04896 122% 109% 
Ag 0.1961 
b | 0.0148 0.0148 0.0148 0.0148 
h 0.0046 00047 00048 0.0045 
设计 结构 2 频率 | 12.746 58915 73327 13508 16431 
误差 0.54% 0.43% 0.78% 0.529 088% 
Ag 0.1451 


为 了 验证 设计 边界 结构 参数 的 有 效 性 ， 对 原 结构 和 设计 边界 支撑 的 结构 进行 模 态 试 
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验 ， 测 试 的 模 态 参数 见 表 8.6. 
386 机 楼 结构 的 模 态 数据 


阶 数 1 2 3 4 5 
原 结构 频率 13.1054 59.0111 | 74.6960 136.0818 167.3189 
йж | 12.951 58.45 | 74926 135.54 169.74 


设计 边界 结构 1 误差 1.18% 0.95 % 
MAC | 0.985 16 0.98129 
йж | 129409 58.2615 
设计 边界 结构 2 误差 126% 127% 
0.986 22 0.978 07 


由 实验 结果 可 知 ， 设 计 的 四 杆 边 界 支撑 结构 的 低 阶 固有 频率 与 原 结构 基本 一 致 ， 振 型 
也 较 符 合 ， 对 原 结构 边界 有 较 好 的 动力 学 模拟 ， 说 明 在 工程 上 通过 边界 结构 的 动力 学 模拟 
来 满足 特定 的 动力 学 特性 要 求 的 方法 是 可 行 的 . 

该 算 例 的 matlab 程序 如 下 : 

主 控 程 序 为 BeamProbB21. 

主 控 程 序 调用 3 个 函数 ， 分 别 为 : 

© ”BeamCom0 一 一 计算 的 目标 结构 (要 求 的 固有 频率 和 振 型 由 此 函数 得 到 ). 

ө ”BobjFunl 一 一 优化 的 目标 函数 . 

е ConFunl 一 一 优化 计算 的 约束 条 件 (此 处 为 不 等 式 约束 ). 

© ”BeamCom1 一 一 优化 迭代 过 程 中 的 有 限 元 计算 . 

其 他 函数 为 有 限 元 计算 所 用 的 函数 . 


031% 0.40% 1.45% 
0.983 02 0.829 39 0.973 76 
75.4238 | 135.5300 169.4663 
0.97 % 0.41 % 1.28% 

0.935 41 0.595 21 0.882 03 


% BeamProbB21 (minimize the difference of lower order modal vectors) 
BeamProbl: (4 supports) 
To find the sizes of the structure using optimal algorithm 


% 
% 
LI 
$ Variable descriptions 
$ Inout: 
* 
* 
% 
% 


х0 == intial value of the design variables 
Optput: 

x == desin varialbes at the optimal solution 
fval == value of objective function 


num f-5; $ number of natural frequency 


Ф 1-ith order of modal vectors 
kg=0; % option for graphic display of modal shape 
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global freqt wst Vit 
% freqt 
% wst 
% vit 


natrural requency of oririnal structure system 
total weight of boundary elements 
modal vector of oririnal structure system 


x0- [0.014 


0.0148; 0.0148; 0.0148; 0.0148; 0.0148; 


0.0040; 0.0040; 0.0040; 0.0040; 0.0040; 0.00401; 
[freqt, wst, Vit]=BeamCom0 (x0,num f,ith т, kg. 


% FEM calculation 


% (2) input variable даса 


% intial value of number of design variables 
h0=0.0148; b0=0.005; 
х0=[һ0; h0; h0; h0; 
b0; b0; b0; 10]; % set the lower and upper bounds of the variables 
%һ1=0.004; hu=0.020; 


%b1=0.004; bi 020; 
hl=0.0148; hu=0.0148; 
bl=0.0040; bu= 


vib=(hl; hl; hl; hl; 
bl; bl; bl; bl]; 
vub-[hu; hu; hu; hu; 
bu; bu; bu; bu]; 


* (3) process the optimum numerical operation 


$ call the fmincon function to get optimal solution 
tic 

options = optimset ('LargeScale','off'); 

options = optimset('MaxSQPIter', 1000); 

options = optimset('MaxFunEvals',2000); 


(x, fval] =fmincon (@BobjFun1,x0, [1, (], [], (], У1Ь, vub, @ConFun1, options) 
с, сед, freq] =ConFuni (х) 


% Purpose: 
* Calculate the objective function which is the norm of difference of 
+ modal vectors 


% Synopsis: 
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[f] =BobjFun1 (x) 
Variable Description: 
x = design variables 


+ 

* 

* 

$ f objective function 
+ 

% 


num f-5; % number of natural frequency 
ith m-2; % 1-ith order of modal vectors 
kg-0; % option for graphic display of modal shape 


[£req,ws, Vi)]-BeamComl (x,num f,ith m,kg); % FEM calculation 
$ freq -- natrural requency of structure system 

total weight of boundary elements 

modal vectors 


f-sum((Vi-Vit).*(Vi-Vit)); 
f=sum(f); 
f=sqrt(f); 


function [c, ceq, freq] = ConFun1 (x) 


% ---- 
% Purpose: 

% То computes the nonlinear inequality constraints с(х)<= 0 апа the 
% nonlinear equality constraints ceq(x) = 0. This function accepts 

% a vector x and returns two vectors c апа сед. The vector c contains 
% the nonlinear inequalities evaluated at x, and ceq contains the 

* nonlinear equalities evaluated at x. 

$ Synopsis: 

% [c, сеч]=СопРип1(х) 

% Variable Description: 

$ Input: 

* x == design variables 

$  Optput: 

* c inequality constraint conditions 

% ceq equality constraint conditions 多 

+ 

% (0) input control data 


362 MATLAB 有 限 元 结构 动力 学 分 析 与 工程 应 用 


num_f=5; $ number of natural frequency 
ith m-2; $ 1-ith order of modal vectors 


kg-0; * option for graphic display of modal shape 


[£req, ws, Vi]-BeamComl(x,num f,ith т, kg) ; $ FEM calculation 
$ freq -- natrural requency of structure system 
total weight of boundary elements 


modal vectors 


$ Nonlinear inequality constraints 
for i-1:num f 
¢(i)=abs (freq(i)-freqt (i))-0.01*freqt (i); 
end 


% No nonlinear equality constraints 


84 ”结构 故障 诊断 


损伤 检测 、 预 警 及 适时 维修 制度 的 建立 ， 有 助 于 在 一 定 程度 上 消除 隐患 及 避免 灾难 性 
事故 的 发 生 . 作为 建立 损伤 检测 、 预 警 及 适时 维修 制度 的 核心 技术 问题 ， 如 何 对 结构 体系 
中 已 经 出 现 的 损伤 进行 有 效 的 识别 、 定 位 和 量化 标定 ， 早 在 20 世纪 70 年 代 就 已 经 开始 进 
行 研究 ， 结 构 损伤 识别 技术 近年 来 得 到 了 巨大 发 展 . 结构 损伤 检测 可 分 为 两 类 : 一 类 是 利 
用 染色 渗透 、 射 线 、 光 干涉 、 超 声波 和 电磁 学 监测 等 技术 对 结构 的 某 些 局 部 进行 定期 检查 . 
染色 渗透 技术 是 对 结构 的 局 部 表面 进行 涂 层 ， 涂 料 则 渗透 到 裂缝 里 ， 观 察 表面 就 可 发 现 表 
面 的 裂纹 ， 射 线 、 射 线 探 损 技术 是 利用 构件 的 射线 、 射 线 照片 进行 损伤 识别 ， 超 声波 技术 
是 向 构件 发 射 高 频 声波 并 测量 折射 情况 ， 从 而 识别 出 复合 材料 的 分 层 或 其 他 损伤 ， 电 磁 学 
检测 技术 是 利用 涡流 和 磁场 的 原理 进行 结构 损伤 的 识别 . 这 类 技术 在 建筑 、 航 天 和 船舶 等 
领域 有 着 广泛 的 应 用 ， 但 仍 有 很 多 缺点 : 一 是 对 于 一 些 不 可 见 、 不 开 敞 的 部 件 难以 监测 ; 
二 是 对 于 一 些 大 型 结构 特别 是 比较 复杂 的 大 型 结构 检测 其 损伤 是 不 可 能 的 ;三 是 这 类 技术 
要 求 监测 人 员 必 须 到 现场 才能 检测 . 可 见 这 类 技术 仅 适用 于 小 型 结构 的 检测 . 对 于 一 些 不 
可 见 、 不 开 敞 的 部 位 ， 该 类 技术 不 仅 无 法 实施 ， 甚 至 要 求 结构 的 一 些 功能 停止 使 用 或 停止 
工作 . 例如 ， 要 求 在 民用 客机 停 飞 、 发 电机 组 停止 运转 的 情况 下 进行 测试 ， 是 非常 不 经 济 
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的 ， 甚 至 无 法 做 到 . 于 是 出 现 了 另外 一 种 局 部 损伤 识别 技术 ， 这 种 技术 把 传感器 (如 光纤 传 
感 器 或 压 电 传感器 ) 固 定 在 一 些 重要 部 件 中 ， 从 而 对 这 些 部 件 进行 远 距离 检测 . 这 一 类 技术 
因为 具有 可 以 直接 确定 构件 的 裂纹 及 其 位 置 的 优点 ， 所 以 在 公路 、 桥 梁 和 建筑 等 许多 领域 
得 到 应 用 . 在 这 一 类 技术 中 基于 动力 特性 的 损伤 识别 技术 受到 了 广泛 的 重视 . 

目前 已 经 提出 的 结构 动力 学 损伤 振动 检测 方法 非常 多 ， 而 且 各 类 新 的 方法 还 在 不 断 被 
提出 . 即使 是 对 这 些 方法 都 仅 做 简略 介绍 ， 在 本 书 有 限 的 篇 幅 内 也 是 不 可 能 的 . 而 这 些 方 
法 都 各 有 其 优点 ， 很 难 选 出 其 中 某 种 具有 代表 性 的 方法 . 出 于 这 种 原因 ， 首 先 简略 介绍 一 
些 结构 动力 学 损伤 检测 的 思想 ， 然 后 再 介绍 一 种 比较 新 的 方法 . 

结构 动力 学 损伤 检测 的 过 程 大 概 可 以 分 为 3 步 : 

(1) 选择 一 种 或 多 种 结构 动力 学 指标 进行 测量 . 包括 结构 频率 、 模 态 、 频 响 函数 和 响 
应 信号 在 内 的 各 种 动力 学 损伤 指标 在 各 种 方法 中 都 被 采用 过 . 目前 ， 一 般 认 为 仅仅 依靠 频 
率 数据 不 适合 完成 损伤 检测 ， 其 他 各 种 动力 学 指标 都 有 自己 的 优点 ， 都 得 到 广泛 的 应 用 . 

(2) 构建 结构 损伤 指标 . 从 直接 使 用 某 种 动力 学 指标 作为 损伤 指标 到 使 用 小 波 分 析 等 
各 种 信号 分 析 方法 ， 利 用 结构 动力 学 特征 构建 结构 损伤 指标 的 方法 也 是 多 种 多 样 . 

(3) 通过 结构 损伤 指标 识别 出 结构 损伤 状态 . 由 于 结构 的 损伤 在 结构 动力 学 特征 上 的 
反映 不 会 是 线性 的 ， 加 上 在 构建 结构 损伤 指标 时 可 能 引入 的 非 线性 因素 ， 在 很 多 方法 中 ， 
结构 损伤 指标 和 结构 损伤 状态 之 间 的 关系 是 非常 复杂 的 . 很 难 甚至 不 能 给 出 一 个 确定 的 表 
达 式 或 者 算法 来 由 结构 损伤 指标 得 到 结构 损伤 状态 信息 . 因此 在 这 类 方法 中 ， 诸 如 神经 网 
络 和 遗传 算法 的 模式 识别 方法 得 到 了 广泛 应 用 . 例如 ， 如 果 证 明了 某 种 结构 损伤 指标 对 结 
构 中 的 损伤 是 敏感 的 ， 且 是 单 值 的 ( 即 不 会 出 现 两 种 不 同 的 结构 损伤 状态 有 同样 的 结构 损 
伤 指标 )， 此 时 ， 如 果 在 推导 出 这 种 结构 损伤 指标 过 程 中 ， 并 没有 给 出 由 结构 损伤 指标 得 
出 识别 损伤 状态 的 关系 式 或 者 方法 ， 那 么 可 以 选择 出 大 量 的 结构 损伤 状态 ， 并 计算 出 在 这 
些 状态 下 的 结构 损伤 指标 . 然后 将 这 些 已 知 的 结构 损伤 指标 和 结构 损伤 状态 配对 作为 训练 
神经 网 络 的 样本 ， 只 要 样本 数目 足够 ， 网 络 规模 合适 ， 经 过 训练 后 ， 该 神经 网 络 就 可 以 识 
别 此 结构 中 的 损伤 . 

但 是 也 有 一 些 方法 ， 在 给 出 结构 损伤 指标 构建 方法 的 同时 ， 也 就 指出 了 结构 损伤 指标 
和 结构 损伤 状态 间 的 关系 . 

下 面 介绍 一 种 由 刘 济 科 和 杨 秋 伟 最 近 提 出 的 一 种 基于 残余 力 向 量 的 损伤 识别 方法 (A_new 
structural damage identification method, Journal of Sound and Vibration 297, 2006: 694—703). 
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一 般 认 为 结构 损伤 将 不 会 改变 结构 质量 ， 这 样 ， 自 由 度 为 n 的 含 损伤 结构 的 有 限 元 模 
型 的 特征 值 问题 方程 为 


(к,-2,м)%, =0 (8-53) 

式 中 : Ky 、 和 加 和 凡是 含 损伤 结构 的 整体 刚度 矩阵 、 第 j 阶 特征 值 和 第 j 阶 特征 向 量 ，M 
是 该 结构 有 限 元 模型 的 整体 质量 矩阵 ，K, 可 以 表示 为 

K,=K,-AK (8-54) 
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RP, AK 是 由 损伤 引起 的 结构 整体 刚度 矩阵 变化 量 . 
将 式 (8-54) 带 入 式 (8-53) 得 到 


(К,-А„М)ф, =4K¢, (8-55) 
idb, =(К,-А„М)ф,, st(8-55)uT ELS М 
AK6, =b, (8-56) 


如 果 共 测量 了 т 个 结构 模 态 ， 对 于 每 一 个 测量 的 模 态 ， 可 以 得 到 如 式 (8-56) 的 一 个 表 
达 式 ， 将 各 表达 式 合并 起 来 写成 矩阵 形式 为 
АКФ=В (8-57) 
xb: Ф=[% é, Ga]: B-[h b, = b]. 
结构 整体 刚度 矩阵 变化 量 AK 可 以 表示 为 


АК = ААРА" (8-58) 
式 中 ，4 是 刚度 连通 矩阵 (stiffness connectivity matrix), AP 为 单元 损伤 参数 矩阵 . 
А=[а а, … «] (8-59) 
а 
АР=| ^ a,€ [0,1] (8-60) 
a, 


其 中 含有 nn 个 元 素 的 向 量 a 是 第 i 个 单元 刚度 连通 向 量 ，n 是 结构 有 限 元 模型 中 的 单元 总 
数 ， 必 第 ;个 单元 损伤 参数 . 如 果 单元 未 损伤 ， 则 相应 单元 w 的 值 为 0， 如 果 该 单元 完全 
损伤 ， 则 相应 值 为 1. 无 论 有 无 损伤 ，4 是 不 变 的 (为 不 影响 此 处 推导 过 程 的 连续 性 ， 计 算 
4 矩阵 的 算法 将 在 本 节 稍 后 介绍 ). 根据 AP 的 定义 ， 可 见 AP 中 的 非 零 元 素数 目 即 结构 中 
的 损伤 数目 ， 同 时 也 等 于 AP 的 秩 . 

将 式 (8-58) 带 入 式 (8-57) 得 到 


ААРА'Ф=В (8-61) 
在 上 式 两 边 左 乘 @" 得 到 
Ф'ААРА'Ф=Ф'В (8-62) 
+ 
С=Ф'А (8-63) 
D=@'B (8-64) 
将 式 (8-63) 和 式 (8-64) 带 入 式 (8-62) 中 得 到 
CAPCT =D (8-65) 
其 中 普 阶 的 方 阵 忆 称 为 损伤 矩阵 . 其 特征 向 量 分 解 为 
D=UAU" (8-66) 
其 中 
U=[u w … u,] (8-67) 


A=diag(o, o, . 0o,) (8-68) 
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将 式 (8-66) 带 入 式 (8-65) 中 得 到 
CAPCT -UAU? (8-69) 
从 式 (8-69) 中 可 以 看 出 ，AP 的 秩 应 当 和 4 的 秩 相等 . 由 于 A ЖАЯН, ИДДА 
角 元 素 中 的 非 零 元 素 个 数 即 为 4 的 秩 ( 此 结论 证 明 详 见 文献 [25])， 因 此 可 以 通过 A 的 秩 来 
得 知 结构 中 损伤 单元 的 个 数 . 在 有 噪声 污染 测量 数据 的 情况 下 ， 也 可 以 通过 4 中 对 角 线 上 
明显 较 大 的 元 素 的 数量 来 确定 结构 的 损伤 单元 数目 . 
式 (8-69) 等 同 于 
A-U'CAPC'U (8-70) 
^ 
E-U'C-|e e > e] (8-71) 
RP, mx ТИЕ E ВА EE. 该 矩阵 的 每 一 列 对 应 于 结构 中 的 一 个 单元 ， 
称 为 损伤 定位 向 量 ， 当 单元 损伤 后 ， 相 关 列 中 与 4 对 角 线 上 零 元 素 对 应 的 元 素 将 全 部 为 零 
(证 明 详 见 文献 [25]). 因此 可 以 通过 矩阵 巨 来 定位 结构 中 的 损伤 . 
在 确定 了 损伤 所 在 单元 后 ， 可 以 进一步 获知 单元 损伤 程度 . 假设 由 以 上 过 程 已 知 结构 
中 有 q 个 损伤 单元 ， 其 对 应 的 损伤 定位 向 量 分 别 为 ，e@,,e,,…,e, ， 这 些 向 量 可 以 组 装 为 
тха ЕВЕ S 


$=[« e … e] (8-72) 
在 S 中 将 有 m-9g 行 零 元 素 ， 式 (8-70) 可 以 缩减 成 
A-SAP'S* (8-73) 
其 中 
a, 
ap=| ё (8-74) 
a, 


Я 
将 8 中 元 素 全 部 为 零 的 行 的 移 去 ，mxg 的 矩阵 S 将 缩减 成 gxg 的 矩阵 8， 相应 地 ， 
也 将 4 中 对 角 线 上 元 素 为 零 的 行列 移 去 ，m 阶 方 阵 4 将 缩减 成 q 阶 方 阵 人 ,这 样 ， 式 (8-73) 
变 成 
A-SAPSU (8-75) 
这 样 ， 可 以 获得 损伤 程度 
AP = 8А (ST) (8-76) 
刚度 连通 矩阵 4 可 以 通过 以 下 方法 计算 . 
因为 AP 是 对 角 和 矩阵 ， 所 以 根据 式 (8-58)，AK 中 元 素 的 值 实际 可 以 写成 : 
а 


ак, [аа Aala ALAS) T ет 


а, 
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根据 整体 刚度 矩阵 K 中 元 素 对 各 单元 刚度 变化 的 敏感 关系 ， 可 以 得 到 AK 中 元 素 值 的 
另 一 个 表达 式 


-3K, 
AK, =5 > (8-78) 
综合 以 上 两 式 可 以 得 到 
ӘК, 
4p4p = 一 人 (8-79) 
до, 


在 一 般 的 有 限 元 单元 中 ， 单 元 刚度 矩阵 的 值 与 单元 刚度 参数 之 间 是 线性 关系 ， 所 
以 有 

aK, AK, 

до, Aa, 

结合 式 (8-79) 和 式 (8-80) 即 可 计算 出 刚度 连通 矩阵 A. 


842 ”数值 验证 

下 面 使 用 该 方法 对 第 3 章 中 计算 过 的 5 节点 和 7 杆 件 的 椅 架 模型 进行 损伤 检测 ， 该 顶 
架 各 杆 件 的 截面 面积 统一 为 4=le-4m ， 弹 性 模 量 为 BE-2.lellPa， 质 量 密度 为 
p 7 T300kg/m?. 结构 在 1 号 节点 处 有 水 平和 垂直 方向 上 的 位 移 约束 ， 在 3 号 节点 上 有 垂直 
方向 上 的 位 移 约束 . 如 图 8.27 所 示 . 


(8-80) 


图 8.27 HRY 


假设 在 第 3 根 杆 件 上 发 生 损伤 ， 令 杆 件 刚度 降低 15%. 下 面 通过 前 面 介 绍 的 方法 来 检 
测 该 损伤 . 

首先 使 用 第 3 章 中 的 程序 获得 该 检 架 结构 完好 时 的 整体 刚度 矩阵 和 质量 矩阵， 再 对 程 
序 进行 调整 (程序 见 后 )， 计 算出 损伤 后 的 模 态 和 频率 等 数据 . 在 这 里 通过 数值 仿真 来 演示 
该 方法 ， 所 以 通过 有 限 元 模型 计算 出 损伤 后 的 数据 ， 实 际 应 用 中 ， 损 伤 后 的 数据 应 采用 实 
验 测量 结果 . 

采用 损伤 后 结构 的 前 3 阶 模 态 数据 ， 根 据 式 (8-55) 一 式 (8-57) 求 出 矩阵 В: 

В = 1.0е+006 * 


( 0.0000 0.0000 -0.0000 
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-0.0000 0.0000 -0.0000 
0.0000 0.0000 -0.0000 
-0.0000 -0.0000 0.0000 
-0.5513 1.0454 -2.2701 
0.0000 0.0000 0.0000 
0.0000 0 0.0000] 
根据 式 (8-64) 求 出 矩阵 D: 


D = 1.0e+006 * 


[0.0965 -0.1830 0.3973 
-0.1830 0.3470 -0.7534 
0.3973 -0.7534 1.6359] 


REPE D 的 特征 值 和 特征 向 量 : 
[U,Lambda]=eig(D); 
(Lambda 即 式 (8-66) 中 的 4) 
得 到 : 
us 
[-0.2154  -0.8432 -0.0538 


0.4085 0.3804  -0.9119 
-0.8870 0.3800  -0.4069] 


Lambda - 
[2.0794 0 0 
0 -0.0000 0 
0 0 0.0000] 


可 以 看 出 在 4 矩阵 的 对 角 线 元 素 上 ， 有 一 个 明显 非 零 元 素 和 两 个 近似 为 零 的 元 素 (两 
个 近似 为 零 的 元 素 值 分 别 为 -1.3533e-008 和 9.4201e-009， 可 以 认为 是 计算 过 程 中 的 数值 
误差 ) 因 此 可 知 ， 在 结构 中 有 一 处 损伤 . 

下 面 来 进一步 确定 损伤 的 位 置 . 

通过 式 (8-79) 和 式 (8-80) 求 出 矩阵 A: 


А = 1.0e+003 * 


14.5826 4.5826 0 2.7248 0.0000 0 0 
0 0 0 -2.7248 -4.5826 0 0 
0 -4.5826 0 0 0 2.7248 0 
0 0 0.0000 -2.7248 0 0 4.5826 
0 0 -4.5826 2.7248 0 0 0 
0 0 0 0 -0.0000 -2.7248 -4.5826 
0 0 0 0 4.5826 2.7248 0) 

再 根据 式 (8-63) 求 出 矩阵 C: 


C = 1.0e+003 * 
[-1.7265 0.8577 0.8021 0.9702 -0.6483 1.0406 -0.0224 
-0.0615 1.0588 -1.5209 -1.7020 -0.0817 1.5348 -1.0601 
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4.0309 -0.5516 3.3024 0.6201 -2.0540 3.0960  -1.1669] 


根据 式 (8-71) 求 出 矩阵 E: 


Е = 1.0е+003 * 
[ -3.2285 0.7370 -3.7232 -1.4542 1.9281  -2.3433 0.6068 
2.9639 -0.5300 0.0000 -1.2298 -0.2649 0.8828 -0.8277 
-1.4912 -0.7872 -0.0000 1.2475 0.9451 -2.7153 1.4427] 


刚才 已 经 得 知 在 4 矩阵 对 角 线 元 素 上 ， 第 2 个 和 第 3 个 元 素 为 零 . 在 巨 矩 阵 与 此 相对 
应 的 第 2 行 和 第 3 行 中 ， 只 有 第 3 列 上 的 两 个 元 素 为 零 . 因此 可 以 得 知 ， 结 构 损伤 发 生 在 
第 3 个 单元 中 . 

最 后 求解 单元 损伤 程度 . 由 于 已 知 单元 中 只 有 一 个 损伤 ， 所 以 A 和 Ss" 都 只 有 一 个 元 
素 ， 式 (8-76) 的 计算 为 标量 计算 . 

AP’ = S" (57) = C3.7232e +003)” *2.0794"-3.7-232е+003)' =0.15 

与 实际 的 刚度 损失 15% 完 全 相符 . 

这 种 方法 也 可 以 完成 对 结构 中 多 个 同时 存在 损伤 的 识别 ， 且 在 模 态 数据 中 含有 随机 干 
扰 的 情况 下 ， 也 能 获得 良好 的 识别 结果 . 

用 以 分 析 损 伤 后 结构 的 MATLAB 程序 如 下 : 


Е=2.1е11; 

А=1е-4; 
density=7.3e3; 
node_number=5; 
element, number-7; 


пс=[0,0;1,0;2,0;0,1;1,1]; 
$nc:node coordinate 


еп= [1,2;2,3;1,4;2,4;2,5;3,5;4,5}; 
%en:element_node 
ed(1:node_number, 1:2) =1; 
ted:element_displacement 
constraint-[1,1;1,2;3,2]; 


for loopi=1:length(constraint) ; 
ed (constraint (loopi,1) , constraint (loopi,2))=0; 
end 
dof=0; 
for loopi=1:node_number 
for loopj=1:2 
if ed(loopi,loopj)--0 
dof-dof«1; 
ed(1oopi,loopj)-dof; 
ená 
end 


第 8 章 工程 应 用 369 
епа 


$el:length of link element 

ek-E*A*[1 0 -1 0;0 0 0 0;-1 0 1 0;0 0 0 0]; 
%ek:element_stiffness_matrix 
em=(density*A)/2*eye(4); 
%em:element_mass_matrix 

k(1:dof,1:dof)=0; 
%k:structural_stiffness_matrix 

m=k; 


%m:structural_mass_matrix,same size with k 
theta(1:7)=0; 

е1(1:7 
е2в(1:4)=0; 

% e2s: index of transform the element displament number to structural 
element_number 


e2s((zi-1)*2«1)-ed(en(loopi,zi),1); 
е28( (21-1) *2+2) =ед(еп(1оорі,2і),2); 
end 


е1 (1оорі) =sqrt ( (пс (еп (1оорі,1),1) -пс(еп(10орі,2),1))^2 

+ (пс (еп (1оорі,1),2) -пс (еп(10орі,2),2))^2); 

theta (1оорі) =аѕіп ( (пс (еп(10орі,1), 2) -пс(еп(10орі,2),2)) /е1 (10орі)); 
lmd= [cos (theta(loopi)) sin(theta(loopi)); -sin(theta(loopi)) 

сов (theta(1o0pi))]; 

t=[1md 2егоѕ (2); zeros(2) 1а); 

dkst'*ek*t/el(loopi); 

dm=t '*em*t*el (loopi) ; 


for jx=1:4 
for jy=1:4 
if (e2s (јх) *e2s (jy) ~=0) 
if (loopi~=3) % damage incurred in 3th element. 
k(e2s (jx) , e25 Gy) ) =k (e2s (jx) ,e2s (jy) ) «dk (jx, jy); 
else 
К (e2s (jx) ,e2s (jy) ) -k (e2s (jx) , e25 (jy) ) 0. 85*dk (jx, ју); 
$ introduce damage which reduce 15$ of the elemental stiffness 
end 
m(e2s (jx) ,e2s (jy) ) -m(e2s (jx) ,e2s (jy) ) «ám (jx, jy); 
end 
end 
end 
end 


[v,d] = eig(k,m); 
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85 ”转子 动力 学 分 析 


8.5.1 Newmark-6 数值 算法 


在 对 简单 转子 系统 做 理论 分 析 时， 通常 都 会 建立 转子 的 运动 微分 方程 ， 若 考虑 其 中 一 
些 非 线性 现象 (例如 挤 压 油膜 阻尼 器 、 轴 上 含 裂纹 、 转 静 件 碰 磨 等 )， 这 个 方程 就 变 为 非 线 
性 运动 微分 方程 . 求解 微分 方程 (特别 是 非 线性 微分 方程) 通常 采用 数值 解法 ， 常 见 的 算法 
有 Runge-Kutta 法 、Euler 后 差 法 、Newmark-8 法 等 ， 这 些 算法 各 有 特点 . 

MATLAB 软件 中 的 数学 工具 箱 采用 的 算法 均 为 改进 的 Runge-Kutta 法 ， 可 以 自 适应 改 
变 步 长， 但 算法 本 身 收敛 速度 慢 ， 容 易 发 散 ， 并 且 积分 步 长 对 结果 的 精度 和 正确 性 有 很 大 
影响 ， 另 外 ， 在 进行 数值 仿真 时 通常 需要 得 到 系统 的 稳 态 解 ， 这 需要 进行 长 时 间 的 仿真 
( 含 去 由 于 不 同 初 值 导致 的 瞬 态 响应 )， 而 MATLAB 软件 的 Runge-Kutta 法 在 求解 时 是 将 每 
一 步 的 计算 结果 作为 矩阵 一 行 元 素 加 在 以 前 仿真 结果 之 后 ， 长 时 间 的 仿真 就 会 产生 一 个 非 
常 大 的 矩阵 ， 占 用 很 大 的 内 存 ， 导 致 计算 机 在 进行 频繁 的 数据 交换 ， 大 大 降低 了 计算 速 
度 ， 这 些 不 足 使 得 它 的 使 用 范围 受到 很 大 限制 . Euler 后 差 法 具有 特殊 、 优 越 的 稳定 性 ， 精 
度 低 可 以 通过 减 小 步 长 来 弥补 ， 积 分 步 数 增加 而 带 来 的 机 时 增加 可 由 简单 的 差分 格式 得 到 
AM. 而 Newmark-8 法 的 优点 在 于 当 参 数 选择 合适 时 积分 是 无 条 件 稳定 的 ， 其 结果 与 步 长 
大 小 无 关 ， 并 且 “Newmark-p 法 是 几 种 常用 线性 加 速度 法 中 的 最 优 算法 ”， 就 单 步 误差 而 
言 ， 其 截断 误差 为 OAP), H Euler 后 差 法 的 截断 误差 O( At ) 小 ， 计 算 精 度 高 , 因此 ， 本 
节 将 介绍 Newmark-B 法 在 求解 裂纹 转子 的 运动 微分 方程 的 应 用 . 

1. Мемтагк-В 法 简介 

Newmark-/ 法 是 在 计算 时 假设 加 速度 为 介 于 功 和 庆 ,w 之 间 的 某 一 常 向 量 的 一 种 方法 ， 即 

{id} = {i} + д({й,„}-{й,)) (8-81) 
也 可 采用 
{ii} = (й) + 2«({й„}-{й,}) (8-82) 

AP, e, 为 控制 参数 ， 它 们 决定 着 积分 的 稳定 性 及 精度 ，Ar 为 积分 步 长 . 当 
ó >0.5,a » 0.25(6 0.5 时 积分 是 无 条 件 稳定 的 . 


经 过 积分 得 到 
{йы} = {ti} +[1- д){й,} + 0t, LY ]AT 


б) ш + Arti) +[(0.5- 2) + afii a A Ng 
E 
1 1 
nr ME 566-0 
9 =@-® -a- 3 
"аг 5000 5-0-5) 


则 由 式 (8-82) 可 求 出 由 他 :sw}、 亿 } s (0) Re Gu) RERO Gu) RO (su) 
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fü.) = а(ш}-—{ищ,})+а,{й,}+а,{й,} 
fà, au = C au) T {u,}) +b, ft} +b, fii, } 
将 运动 方程 写成 如 下 统一 形式 
LM] G3 +[С]{й} + [K] {u} = (90) + UP (8-85) 
将 式 (8-83) 代 入 式 (8-85) 得 
Kin ul = (83+ Ural (8-86) 
其 中 
[K]=a[M1., +18), +С), 
{2} = {g(r+ A0) M], la, {u} -a {ù} - as.) ) HEC] {b {u} —Ь,{й,}—Ь,{й,}} 
对 于 如 式 (8-84) 的 微分 方程 ， 则 可 以 根据 式 (8-83) 和 式 (8-85) 求 出 其 响应 . 


2. 程序 编制 
【 例 8.11】 考虑 Jeffeott 转子 系统 模型 ， 其 运动 微分 方程 为 


mi + 2mDoo, X + k,x = mea? sin(ax + ф) 


(8-87) 
mj + 2mDo,, y + k,y = теа? cos(at + 9) 
对 式 (8-87) 进 行 无 量 纲 化 ， ERN móa* 
at 2D y eu Usin(z +9) 
9 8-88) 
2р ( 
Y+ у= U cos(z + 9) 


其 中 ， 无 量 纲 参数 为 


6=mg/k, 为 转子 的 静 位 移 . 

转子 模型 参数 如 下 : 1=1m,m=100kg, R=0.03m,£=200GPa ， 重 力 加 速度 取 
8 =9.8 N/m? ， 转 盘 半 径 R=0.3m ， 转 盘 偏心 距 为 2x10+m ， 阻 尼 系 数 D=0.01. 对 式 
(8-88) 进 行 仿真 ， 得 到 系统 响应 如 图 8.28 所 示 ( 均 为 稳 态 响应 ). 


1 т T ' 

05 f- 0.5 
x 0 Y 0 

"es -05 

= 

800 850 900 950  -l 05 0 0.5 1 
с . p Х 
(а) 波形 图 (b) 轨迹 图 


图 8.28 MATLAB 计算 环境 下 Newmark-B 法 仿真 结果 
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MATLAB 程序 : 
Е=2*10^11; 
L=1; 

m1-100; 


i*R^4/A; 
kz-A48*E*I/L^3; 
мп (kz/m1)^0.5; 
q-ml*gl/kz; 


Uze/q; 
Wew/wn; 


к=0.5; 

а=0.25; 

al=1/(a*dt*2); 
a2--1/(a*dt); 
a3--(0.5/a-1); 
bl-r/(a*dt); 

b2-1-r/a; 
b3=(1-0.5*r/a) *dt; 
m=eye (2); 

c=2*[0.01/W 0;0 0.01/W]; 
1/W^2 0;0 1/w^2]; 
U*sin(t0);U*cos(t0)]; 


00=[0;0]; 
ур0= [0.001;0.001]; 
upp0=m* (-1) *(g-k*u0-c*up0) ; 


up=up0; 
upp=upp0; 
fid-fopen('zhuanzi.txt','w'); 
for tz(tO«dt) :dt:300*pi 
g-[U*sin(t);U*cos(t)]; 
Kzal*m+bl*c+k; 
G=g+m* (a1*u-a2*up-a3*upp) «c* (b1*u-b2*up-b3*upp) ; 
ul-K^(-1)*G; 
чр1=Ь1* (ul-u) +b2*up+b3*upp; 
=al* (u1-u) +a2*up+a3*upp; 
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usul; 

up=upl; 

upp-uppl; 

fprintf(fid,'$f  %£ %E\n' ,u1(1),u1(2),t); 
end 
fclose(fid); 


8.5.2 ”影响 系数 法 进行 双 面 转子 动 平衡 
1. 影响 系数 法 介绍 


影响 系数 法 是 基于 校正 配 重 与 测量 的 机 器 振动 之 间 的 线性 关系 ， 即 影响 系数 ， 来 对 转 
子 进行 平衡 的 . 对 于 柔性 转子 ， 采 用 两 平面 影响 系数 法 ， 需 运行 转子 3 次 实现 平衡 . 

如 图 8.29 所 示 ， 使 转子 在 原配 轴承 基 座 上 以 工作 转速 或 者 其 他 选 定 的 平衡 转速 转动 . 
在 机 器 上 选 定 两 个 测 振 点 1、2， 速 度 、 加 速度 传感器 通常 选 在 左右 两 个 轴承 益 上 ， 对 于 
位 移 传感器 ， 可 选 在 轴 颈 上 或 者 转子 本 体 上 . 光电 传感器 输出 键 相 脉冲 信号 ， 可 得 到 转速 
以 及 用 以 计算 相位 . 为 了 消除 来 自 于 其 他 机 器 的 振动 干扰 和 机 器 本 身 不 平衡 以 及 其 他 因素 
的 干扰 ， 需 要 对 原始 振动 信号 进行 滤波 处 理 ， 滤 掉 与 转速 不 同 频 的 信号 . 振动 信号 和 所 加 
的 试 重 都 是 矢量 ， 为 了 方便 地 进行 复数 运算 ， 通 常 需 将 一 阶 滤波 后 的 数字 信号 及 试 重 矢量 
进行 幅 值 和 相位 的 分 离 (MATLAB 可 进行 复数 运算 ， 无 需 此 步 ). 试 重 矢量 的 幅 值 采用 试 重 
矢量 矩 ， 即 取 试 重大 小 与 加 重 半径 的 乘积 ， 相 位 取 加 试 重 处 在 相位 标记 面 上 对 应 的 相位 值 . 


轴承 1 光电 传感器 
: 轴承 2 。 [E ERU m 
2 ` 
振动 传感器 2 


图 8.29 ”影响 系数 法 对 转子 现场 平衡 

用 影响 系数 法 平衡 刚性 转子 的 实施 过 程 分 为 以 下 3 个 步骤 (转子 3 次 运行 ): 

1) 第 0 次 运行 

使 转子 以 转速 全 运行 ， 在 测 点 1 和 2 处 测 得 转子 的 振动 分 别 为 功 , 和 闷 。， 作 为 平衡 
前 的 原始 值 . 此 测量 信号 包含 了 原始 不 平衡 、 支 承 以 及 机 匣 特性 的 影响 . 

2) 第 1 次 运行 

根据 转子 结构 选取 两 个 校正 面 I. IL EAE YM bn uu. HRP URE QE 
行 . 在 测 点 1 和 2 处 测 得 转子 的 振动 分 别 为 马 , 和 部 ,. 它们 既 包含 了 原始 不 平衡 、 支 承 以 


BERS 


Ree | 1 
IDEE: 计算 机 处 理 
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及 机 匣 特 性 的 影响 ， 也 包含 了 试 重 二 的 影响 . 故 影 响 系数 为 
à, Хао à, = n Xo 
а =— — === 

Ыы u 


НОВЕ а, {ЕП mE. SOUEMETUGEHRQUiEiT. 在 测 点 1 和 2 处 测 
得 转子 的 振动 分 别 为 Za MEn. 试 重 的 影响 系数 为 


, = ku Xo 


a, 
求 得 影响 系数 后 ， 列 出 平衡 条 件 


(e ele XE 
„1а, а, 

а) [а а. al "mo 
te} Ë z] a en 


用 解析 法 解 此 矢量 方程 组 ， 可 求 得 校正 块 质量 及 位 置 . 

在 转子 上 安装 校正 质量 ， 重 新 启动 转子 . 如 振动 已 减 小 到 满意 程度 ， 则 平衡 结束 . Ж 
则 可 再 一 次 进行 修正 平衡 . 一 般 来 说 ， 若 转子 系统 无 异常 ， 振 动 的 测量 和 计算 是 正确 的 ， 
一 两 次 加 重 就 可 以 得 到 满意 的 结果 . 

2. 程序 编制 

【 例 8.12】 对 Bently 模拟 进行 动 平衡 ， 其 实验 表格 见 表 8.7. 动 平衡 过 程 共 分 以 下 7 
个 步骤 ，@ 低 转速 测量 初始 弯曲 (由 轴承 内 环 不 光滑 、 轴 初始 弯曲 、 盘 面 不 光滑 等 导致 )， 
@ 0 次 运行 ， 测 得 转子 的 原始 振动 ; OR 1 次 运行 ， 测 得 转子 在 1 面 上 加 配 重 的 振动 ; 
Ф 2 次 运行 ， 测 得 转子 在 2 面 上 加 配 重 的 振动 ，@ 计 算 需 加 配 重大 小 ，@ 在 转子 上 实 加 
配 重 ，@ 加 上 配 重 以 后 第 3 次 运行 ， 测 得 平衡 结果 . 其 测量 数据 是 盘 附 近 轴 的 振动 位 移 
量 ， 因 转盘 只 能 在 转盘 固定 角度 施加 配 重 ， 并 且 所 能 施加 的 最 大 配 重 为 2g， 因 此 ， 实 际 
操作 时 将 配 重 分 别 加 在 3 个 角度 上 ， 使 其 合成 配 重 与 计算 配 重 接近 . 因 实 验 转 子 加 工 精度 
比较 高 ， 所 以 没有 对 数据 进行 滤波 . 其 在 水 平方 向 的 初始 弯曲 、 原 始 振动 和 平衡 结果 的 波 
形 图 如 图 8.30 所 示 . 


и, 


DES na š, Ята, 


#87 Bently 模拟 转子 动 平衡 数据 


试 重 一 阶 振动 量 
步 R 1 面 2 面 1 面 2 面 
大 小 相位 | 大 小 相位 幅 值 相位 幅 值 相位 
200 FECHA AS Hh) | 0.0436 | 290.0 0.0390 | 299.3 
第 0 次 运行 02186 |2719 | 02057 |2771 
第 1 次 运行 12 90 0.1175 | 281.6 | 0.1158 |2920 
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试 ш 一 阶 振动 量 
步 又 1 面 2 面 1 面 2 面 
大 小 相位 | 大 小 相位 幅 值 相位 幅 值 相位 
第 2 次 运行 12 90 0.1215 | 2784 | 0.1136 |2903 
计算 配 重 1 面 5.84， 角 度 48; 2 面 5.05， 角 度 200.4 
жий: 1 122.5 度 加 1.6, 45 度 加 2，67.5 HEM 2， 合成 结果 46.6 KEM 5.32; 
2 面 180 度 加 2，202.5 度 加 1.6, 225 度 加 1.6， 合 成 结果 200.7 度 加 4.93 
平衡 结果 0.0461 258.5 0.0464 | 2732 


ik. 以 上 实验 数据 配 重 单位 为 g， 幅 值 单位 为 mm， 角 度 单 位 为 度 . 转速 为 1453 转 ， 所 加 配 重 半径 相同 . 


MATLAB 程序 : 


A10-0.2186;J10-271.9/180*pi; 
А20=0.2057;720=277.1/180*рі; 
А11=0.1175;711=281.6/180*рі; 
A21-0.1158;J21-292/180*pi 
А12=0.1215;712=278.4/180*р. 
А22=0.1136;722=290.3/180*рі; 
u121.2; ju1-90/180*pi; 
u2-1.2;ju2-90/180*pi; 
Х10=А10*сов (710) +1*А10*зіп(710); 
X20=A20*cos (20) +i*A20*sin(J20); 
X11-All*cos(J11)«i*All*sin(J11); 
X21-2A21*cos (721) «i*A21*sin(J21); 
X12-A12*cos (712) «i*A12*sin(J12); 
X22-A22*cos (J22) +i*A22*sin(J22); 
Ulzul*cos(jul)*i*ul*sin(ju1); 
U2-u2*cos (ju2) «i*u2*sin(ju2); 


yll-(X11-X10) /U1; 
y12-(X12-X10)/U2; 
y21=(X21-X20)/U1; y22-(X22-X20) /U: 
а=[у11 y12;y21 y22]; 
-[-X10;-X20]; 

^i-1)te 


2; 
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(b) 2 盘 初 始 弯曲 振动 
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(e) 1 盘 平衡 结果 


(02 盘 平衡 结果 


图 8.30 动 平衡 初始 弯曲 、 原 始 振动 和 平衡 结果 的 波形 图 
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MATLAB 作为 一 种 高 效率 的 工程 计算 工具 ， 成 功 地 将 编程 计算 和 数据 图 形 化 集成 在 
另 一 个 易 用 的 环境 中 ， 研 究 人 员 可 以 用 近似 数学 表达 式 的 形式 来 对 各 类 问题 进行 描述 和 求 
解 . 因此 MATLAB 在 数学 、 数 据 采 集 、 建 模 、 仿 真 、 数 据 分 析 和 图 形 化 等 多 领域 得 到 了 
广泛 的 应 用 . 

由 于 当前 各 高 校 的 机 械 专 业 和 力学 专业 都 在 本 科教 学 计划 中 包含 至 少 一 门 计算 机 语言 
课程 ， 此 外 考虑 到 本 书 主题 和 篇 幅 要 求 ， 在 这 里 不 再 对 计算 机 编程 的 基础 思想 进行 过 多 介 
绍 ， 也 无 法 实现 细致 完备 的 MATLAB 大 全 ; 而 是 主要 针对 MATLAB 语言 和 其 他 高 级 编 
程 语言 的 不 同 之 处 ， 对 本 书 中 使 用 到 的 MATLAB 功能 进行 简要 的 介绍 . 力求 使 掌握 计算 
机 编程 基础 思想 的 读者 能 够 通过 这 个 快速 指南 ， 顺 利 地 理解 本 书 中 的 MATLAB BUT. 

对 于 还 不 了 解 计算 机 编程 基本 思想 的 读者 ， 我 们 建议 其 可 以 先 通过 学 习 
(FORTRAN 77 结构 化 程序 设计 》( 谭 浩 强 ， 田 淑 清 ;清华 大 学 出 版 社 ，2000) 或 者 《C 语 
言 程序 设计 (第 2 版 )》( 谭 浩 强 ; 清华 大 学 出 版 社 ，2009) 等 著作 来 完善 这 一 部 分 的 知识 . 在 
数值 仿真 日 益 受到 重视 的 今天 ， 具 备 计 算 机 编程 基本 能 力 ， 不 仅 是 进行 结构 动力 学 有 限 元 
分 析 的 前 提 ， 而 且 对 进行 结构 动力 学 其 他 研究 方向 也 是 有 益 的 . 

对 于 打算 进一步 深入 学 习 MATLAB 的 读者 ， 我 们 建议 其 可 以 参考 MATLAB 自 带 的 
帮助 文档 和 以 下 专著 : 《精通 MATLAB 7) (Duane Hanselma; 清华 大 学 出 版 社 ) 或 者 
(MATLAB 实用 教程 》( 徐 金明 ; 清华 大 学 出 版 社 )。 


A.1 MATLAB 使 用 界面 


MATLAB 7.4 的 默认 界面 如 图 A.1 所 示 . 

区 域 O 中 显示 的 是 当前 目录 中 的 文件 . 当前 目录 是 指 执行 函数 或 者 读 取 数 据 时 ， 如 果 
对 相关 文件 没有 指定 绝对 路 径 ， 则 除了 系统 默认 目录 以 外 ， 系 统 寻 找 相关 文件 的 目录 . 4 
前 目录 可 以 通过 工具 栏 上 的 按钮 来 设置 . 系统 会 显示 最 近 使 用 过 的 20 个 目录 在 按钮 右边 
的 下 拉 式 菜单 中 ， 对 于 这 些 目录 ， 也 可 以 使 用 该 菜单 快速 指定 为 当前 目录 . 如 果 通 过 File 
一 Set Path 命令 将 某 个 目录 加 入 了 系统 默认 目录 行列 ， 则 需要 运行 或 者 读 取 该 目录 中 的 文 
件 时 ， 可 以 不 需要 事先 将 该 目录 设置 成 当前 目录 . 通过 单 击 区 域 O 下 部 的 标签 ， 也 可 以 将 
这 一 部 分 切换 为 显示 工作 空间 内 容 . 工作 空间 中 显示 当前 创建 的 各 种 变量 的 情况 ， 包 括 其 
内 容 ， 内 存 使 用 大 小 等 . 

区 域 @ 是 命令 记录 窗口 . 在 该 窗口 中 记录 了 最 近 使 用 的 命令 . 对 区 域 O 和 区 域 @ 中 显 
示 的 内 容 ， 可 以 按照 大 家 所 熟悉 的 Windows 资源 管理 器 的 习惯 进行 操作 . 比如 在 文件 名 上 
双击 表示 打开 该 文件 ， 而 右 击 则 弹出 相应 菜单 . 

区 域 @ 是 命令 窗口 . MATLAB 属于 解释 型 语言 . 可 以 不 用 编写 一 个 程序 ， 而 直接 通过 
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在 命令 窗口 中 输入 代码 并 运行 . 例如 在 命令 窗口 可 以 直接 输入 如 下 代码 : 
rho = (1«sqrt(5))/2 


按 回 车 键 后 ，MATLAB 将 会 在 命令 窗口 中 输出 结果 (在 后 面部 分 将 直接 用 斜体 来 表示 
系统 输出 ， 而 不 再 专门 另行 提示 ): 
rho = 
1.6180 


同样 的 例子 如 果 通过 FORTRAN 语言 或 者 C 语言 来 完成 ， 就 需要 多 个 步骤 : 编写， 

编译 和 运行 完整 的 程序 ， 完 整 的 程序 中 又 要 包括 变量 定义 ， 算 法 实现 和 结果 输出 等 部 分 . 
而 除了 自 定义 函数 以 外 的 少数 情况 ， 大 多 数 MATLAB 程序 中 的 语句 和 函数 都 可 以 在 
MATLAB 命令 窗口 中 输入 执行 ， 因 此 在 很 多 情况 下 不 用 编程 也 可 以 充分 快速 地 利用 
MATLAB 的 强大 功能 . 相 比 较 于 要 求 严格 的 FORTRAN 语言 或 者 C HT, MATLAB 的 这 
种 灵活 特性 对 科研 工作 来 说 是 有 益 的 ， 无 论 是 前 期 的 数据 预 处 理 ， 还 是 程序 运算 完成 后 结 
果 的 再 分 析 ， 都 可 以 方便 快速 地 进行 . 

PEAT EO re er | 

Dd хъа- 


игн Direcfory. woi: 
[ТТТ - 


lesen] 


图 A.1 MATLAB 界面 
A.2 MATLAB 编程 简介 


А21 命令 文件 和 函数 文件 


除了 在 命令 窗口 下 输入 命令 来 完成 操作 之 外 ， 为 完成 复杂 计算 ， 支 持 程序 概念 显然 是 
必须 的 . MATLAB 支持 运行 后 缀 为 M 的 程序 文件 . 考虑 到 熟悉 FORTRAN 语言 或 者 C 语 
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言 的 读者 的 习惯 ， 本 书 将 变量 等 概念 移 到 M 文件 编程 部 分 介绍 ; 不 过 这 不 表示 这 些 概念 
不 适用 于 命令 窗口 输入 执行 方式 . 

м 文件 可 以 分 为 两 类 : 命令 文件 和 函数 文件 . 

为 了 代替 在 MATLAB 提示 符 下 输入 MATLAB 命令 的 语句 ， 可 以 把 这 些 命令 写 入 一 
个 文本 文件 . 每 当 用 户 输入 这 个 文件 名 时 ， 这 些 命令 就 由 MATLAB 执行 . MATLAB 从 文 
件 而 不 是 从 终端 读 取 命 令 ， 当 文件 中 最 后 一 个 命令 被 执行 时 ，MATLAB 能 再 从 终端 读 取 
命令 . 这 类 文件 称 为 命令 文件 . 

函数 文件 用 来 创建 函数 ， 也 是 由 MATLAB 命令 构成 的 ， 只 是 在 其 文件 头 部 有 一 定 的 
格式 要 求 . 这 部 分 内 容 将 在 A.2.6 节 中 详细 介绍 . 

函数 文件 和 命令 文件 的 执行 如 同 普通 的 MATLAB 命令 ， 不 需要 进行 编译 . 当 输入 文 
件 名 时 (如 果 有 自 变量 就 一 起 附带 参数 )， 就 执行 文件 中 的 语句 . 所 有 的 M 文件 都 是 普通 的 
ASCI 文本 文件 ， 可 以 使 用 MATLAB 自 带 的 编辑 器 来 创建 和 编辑 ， 也 可 以 使 用 其 他 通用 
文本 编辑 器 来 创建 和 编辑 . 在 M 文件 中 ， 以 % 开 始 的 行为 注释 行 . 输入 help name, HER 
该 M 文件 中 的 第 一 个 命令 之 前 的 所 有 注释 行 . 


A.2.2 变量 


(1) 变量 名 : MATLAB 变量 名 可 以 由 字母 、 数 字 和 下 划 线 组 成 ， 但 是 变量 名 称 必须 由 
字母 开始 . MATLAB 是 字母 大 小 写 敏感 的 . A 和 а 将 被 视 为 不 同 的 变量 . 变量 名 长 度 无 限 
制 ， 但 只 有 变量 名 的 前 N 位 字符 是 有 效 的 . N 视 系统 而 定 ， 可 以 用 namelengthmax 函数 来 
确定 ， 一 般 PC 上 为 63. 可 以 用 iskeyword 来 查看 系统 保留 关键 词 ， 除 此 之 外 系统 内 置 函 
数 名 可 以 用 作 变量 名 . 但 是 应 当 注 意 避 免 变量 名 与 已 有 函数 重 名 ， 否 则 在 程序 中 将 不 能 调 
用 该 重 名 函数 . 

(2) 变量 类 型 ， MATLAB 支持 的 变量 类 型 相当 广泛 . 不 但 包括 各 种 编程 语言 中 常见 的 
整数 型 、 实 数 型 、 字 符 型 和 逻辑 型 等 基本 类 型 变量 ， 还 支持 元 胞 和 构架 等 类 型 , MATLAB 
中 数值 型 变量 直接 支持 复数 ， 无 须 专门 定义 复数 型 变量 , 此 外 ， 对 和 矩阵 提供 了 最 底层 的 支 
持 ， 各 变量 类 型 都 可 建立 相应 的 矩阵 ， 并 被 视 为 一 个 变量 ， 可 以 直接 对 其 进行 运算 操作 

(3) 变量 定义 MATLAB 内 建 类 型 变量 并 不 要 求 预先 定义 ， 可 以 直接 通过 变量 赋值 
来 建立 变量 并 由 其 所 赋予 的 数据 类 型 来 决定 变量 的 类 型 . 个 别 扩展 功能 组 件 引入 的 变量 类 
型 需要 事先 定义 . 比如 符号 运算 中 的 符号 变量 . 

(4) 变量 可 变性 : 首先 是 类 型 可 变性 . 大 多 数 计算 机 语言 不 允许 赋予 一 个 已 存在 变量 
与 其 原本 类 型 不 符合 的 数据 ， 而 MATLAB 中 将 直接 更 改变 量 类 型 存 入 新 的 数据 . 其 次 是 
大 小 可 变性 . 矩阵 的 大 小 将 由 数据 来 决定 ， 可 以 在 建立 变量 后 再 动态 改变 其 矩阵 维 数 . 这 
些 特性 是 实现 MATLAB 的 灵活 性 所 需要 的 ， 但 是 我 们 建议 读者 在 编写 MATLAB 程序 的 
时 候 ， 最 好 在 程序 开始 时 通过 赋值 来 统一 建立 变量 并 同时 用 注释 说 明 变量 意义 ， 尽 量 不 要 
在 程序 中 改变 变量 意义 和 类 型 . 

(5) 数组 : 一 般 计算 机 语言 中 都 将 数组 视 为 变量 的 组 合 . 但 MATLAB 中 如 前 所 述 ， 将 
矩阵 作为 一 种 基本 数据 格式 ， 而 实际 上 数组 就 是 一 种 矩阵 . 所 以 在 MATLAB 中 没有 与 一 
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般 变量 相 并 列 的 数组 概念 . 读者 可 以 从 后 面 的 例 9.1 和 例 9.2 中 体会 关于 数组 (矩阵 ) 的 一 些 
具体 操作 . 


А23 ”算术 运算 符 和 算术 表达 式 


算术 运算 符 介绍 如 下 . 

O) “+”, “一 ”: 分 别 为 加 减法 运算 符 ， 也 可 以 用 来 表示 数值 正 负 . 

D “ж”, 乘法 运算 符 . 

(3) "/" : 除法 运算 符 ( 矩 阵 右 除 ). 

(4) "V : 矩阵 左 除 运算 符 . 

(5) "^". REZAT. 

“*”、“/”、“^” 和 “\” 都 是 对 矩阵 整体 进行 运算 ， 如 果 在 其 前 面 加 上 “.”， 则 
表示 对 和 矩阵 中 的 每 一 个 元 素 单独 进行 该 运算 . 

在 上 述 运算 符 中 ， 靠 后 的 运算 级 别 高 . 在 带 相同 优先 级 的 运算 符 表达 式 中 ， 按 从 左 到 
右 的 顺序 执行 . 贺 括 号 ( ) 能 够 用 于 改变 优先 级 次 序 . 

使 用 “'” 可 以 得 到 复数 的 共 令 . 对 矩阵 来 说 A 得 到 的 是 A ОЖ ИШ, AJE 
转 置 ， 对 实数 矩阵 来 说 两 者 是 一 样 的 . 

在 MATLAB 中 科学 记 数 法 格式 如 1.23 E-6( 即 1.23 10%). 

[Ø A.1】 在 MATLAB 中 创建 两 个 矩阵 A 和 B， 并 计算 B+A、B*A*B'、A 中 第 2 
行 第 3 列 的 元 素 与 B 的 乘积 、A 中 第 1 列 元 素 与 B 的 乘积 : 

A=[1 23; 213; 3 2 1] 


А = 
1 2 
2 1 5 
3 2 1 
В=[1 1 1] 
B = 
1 1 1 


建立 一 个 矩阵 可 以 有 多 种 方式 ， 一 般 是 是 在 方 括号 [ ] 内 和 逐 行 给 定 元 素 ， 行 内 元 素 间 以 
空格 分 开 ， 行 与 行 间 用 分 号 隔 开 . 作为 特例 ， 如 果 定 义 一 个 标量 ， 则 可 不 需要 方 括号 . 
B*A 
ans = 
6 5 LA 


在 计算 B*A 时 ， 没 有 指定 表达 式 的 结果 应 赋予 哪个 变量 ， 系 统 默认 在 此 情况 下 创建 
变量 ans 来 保存 结果 . WR ans 已 经 存在 ， 则 以 前 的 值 会 被 冲 掉 . 
A=B*A*B' 


А = 


18 
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在 计算 B*A*B' 时 ， 指 定 将 结果 赋予 变量 A， 因 此 在 命令 执行 后 变量 A 中 以 前 的 内 容 
被 新 的 值 冲 掉 ， 由 3X3 的 矩阵 变 成 了 一 个 标量 . 


С=А(2,3)*В 
c = 
3 3 3 
D= A(:,1)*B 
D= 
+ 1 
š 2 2 
3 3 3 


引用 矩阵 A 中 第 m 行 第 n 列 的 元 素 ， 可 以 通过 A(m,n) 的 方式 来 实现 . 因为 MATLAB 
中 无 指针 概念 ， 因 此 不 必 像 C 语言 中 那样 去 深究 矩阵 (数组 ) 在 内 存 中 的 行列 排列 顺序 . 

引用 和 矩阵 A 中 第 m 行 的 全 部 元 素 ， 可 以 通过 A(m,:) 的 方式 来 实现 . 类 似 地 ， 和 矩阵 A 
中 第 п 列 的 全 部 元 素 ， 可 以 通过 A(:,n) 的 方式 来 引用 . “:” 一 般 用 来 建立 一 个 序列 . 其 
格式 为 ，“ 序 列 起 始 值 :序列 间隔 值 :序列 中 止 值 ”. 如 果 不 指 定 序列 间隔 值 ， 则 默认 为 1. 
如 执行 =1:2:5， 等 同 于 t=[1 3 5]; 而 t=1:5， 等 同 于 t-[123 4 5]. 在 引用 矩阵 元 素 的 时 候 , 
若 只 有 一 个 冒号 ， 而 没有 指定 序列 起 始 值 和 中 止 值 ， 则 默认 为 从 1 到 该 矩阵 在 这 个 指标 上 
的 最 大 值 . 

【 例 A.2】 建立 复数 矩阵 A 和 B， 分 别 计算 B 和 B.'. 

A-[ 1+41 2+3i; 3+2i 4+1]; 

B=eye(2)+magic (2) *j 

B= 

1.0000 + 1.0000i 0 + 3.0000i 
0 + 4.0000i 1.0000 + 2.0000i 

i 和 j 是 MATLAB 中 的 虚数 单位 . 可 以 通过 1+4*i 的 方式 来 表达 复数 ， 也 可 以 按照 数 
学 中 的 习惯 省 略 乘 号 直接 写成 1+4i. 如 果 在 程序 中 将 i 和 j 用 作 了 其 他 变量 ， 就 无 法 通过 
上 述 方式 来 表达 复数 . 虽然 可 以 通过 类 似 ii=sqrt(-1) 的 方法 来 重新 定义 虚数 单位 常量 ， 但 
是 我 们 建议 一 般 在 程序 中 还 是 不 要 再 使 用 i 和 j 作为 其 他 变量 . 

在 建立 矩阵 A 的 命令 后 有 一 个 分 号 ， 其 作用 是 在 屏幕 上 不 输出 此 命令 的 结果 . 

建立 矩阵 B 的 命令 中 使 用 了 虚数 单位 j， 从 结果 中 可 以 看 出 效果 和 i 是 一 样 的 

в 

апв = 


1.0000 - 1.00001 0 - 4.0000i 
0 - 3.00001 1.0000 - 2.0000i 
в.' 
апз = 
1.0000 + 1.00001 O + 4.00001 


0 + 3.00001 1.0000 + 2.00001 
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A24 ”关系 运算 符 和 逻辑 运算 符 

1. 关系 运算 符 

() “< "AF. 

(2) “<= ”小 于 等 于 . 

(3) “> "XT. 

(4) “>=” 大 于 等 于 . 

(人 避 “一 ”等 于 . 

(6) “一 ”不 等 于 . 

作为 关系 表达 式 的 结果 ，MATLAB 中 有 独立 的 逻辑 型 变量 . 可 以 通过 以 下 方式 建立 
一 个 逻辑 型 变量 . 


x = [true, true, false, true, false]; 


逻辑 型 变量 实际 上 是 将 true 记 作 1, false 记 作 0， 并 可 参与 数值 计算 . 
【 例 A.3】 挑 选 出 矩阵 A 中 大 于 5 的 数值 . 


А = magic(4) 


T=A>5 

Ta 
1 0 0 1 
0 1 1 1 
4 1 1 1 
0 1 1 0 

.*T 
ans - 


16 0 0 13 
0 11 10 8 
9 7 6 12 
о 14 15 0 


2. 逻辑 运算 符 

(1) “a” BH. 返回 一 个 与 A 和 B 相同 维 数 的 矩阵 . 在 这 个 矩阵 中 ， A 和 B 对 应 
元 素 都 为 非 零 时 ， 则 对 应 项 为 1， 有 一 个 为 零 的 项 则 为 0. 

(2) “|” 逻 辑 或 . 返回 一 个 与 A 和 В 相同 维 数 的 矩阵 . 在 这 个 矩阵 中 ， A 和 B 对 应 
元 素 只 要 有 一 个 为 非 零 ， 则 对 应 项 为 1， 两 个 矩阵 均 为 零 时 ， 则 为 0. 

(3) “~” ЖАНЕ. 返回 一 个 与 A 和 B 相同 维 数 的 矩阵 . 在 这 个 和 矩阵 中 ， A 是 零 时 ， 
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则 对 应 项 为 1; A 是 非 零 时 ， 则 对 应 项 为 0. 
(4) “xor” BHRR. 返回 一 个 与 A 和 B 相同 维 数 的 矩阵 . 在 这 个 矩阵 中 ， 如 果 A 和 
B 均 为 零 或 均 为 非 零 ， 则 对 应 项 为 0， 如 果 A 或 B 是 非 零 但 不 是 两 者 同时 为 非 零 ， 则 对 应 
项 为 1. 
СЙ А.41 
[0110 1]; 
[11001] ; 
A&B 
0 10 01 
AIB 
ans = 
k LAYQA D. 3 


> 
" 


~A 
ans = 
10010 
xor (A,B) 
ans - 
10100 


А.2.5 ”程序 流程 控制 
1. 选择 结构 
D 站 语句 
if logical expression (逻辑 表达 式 ) 


statements (程序 语句 ) % Executes if the result of expression is true. 
End 


HE: 矩阵 元 素 参与 的 逻辑 表达 式 ， 当 其 结果 中 所 有 元 素 为 非 零 值 时 ， 才 按 为 tue 对 待 . 
if, else 的 用 法 : 


if logical_expression 
Statementsl % Executes if the result of expression is true. 
else y 
statements2 % Executes if the result of expression is false. 
End 


elseif 的 用 法 : 


if expressioni 

Statements] % Executes if the result of expression1 is true. 
elseif expression2 

statements2 % Executes if the result of expression2 is true. 
end 
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2) switch 语句 


switch expression (scalar or string) 
case valuel 
statements % Executes if expression is valuel 
case value2 


Statements $ Executes if expression is value2 


otherwise 


statements $ Executes if expression does not match any case 
end 


2. 循环 结构 
1) for 语句 


for index = start: increment :end 
statements 
end 


index, start. increment 和 end 分 别 是 循环 变量 名 、 循 环 的 初始 值 、 步 长 和 终 值 . 如 果 
已 经 有 一 个 向 量 x， 也 可 以 写成 index=x. 
2) while 语句 
while expression 
statements % Executes while expression is true 


end 
用 来 略 过 循环 中 指定 部 分 的 continue 语句 和 跳出 循环 的 break 语句 ， 因 为 在 本 书 例子 
中 没有 用 到 过 ， 且 也 不 提倡 在 规范 化 的 程序 中 使 用 ， 所 以 不 作 介绍 . 


А26 函数 


如 果 将 命令 文件 理解 为 FORTRAN 语言 中 的 程序 ， 则 MATLAB 中 的 函数 文件 与 
FORTRAN 语言 的 函数 和 子 程序 非常 相似 . 函数 文件 有 如 下 特征 : 

(1) 函数 文件 的 第 一 行 必须 包含 关键 字 function， 命 令 文件 没有 这 种 要 求 . 因此 ， 没 有 
这 样 第 一 行 的 M 文件 是 命令 文件 . 

(2) 第 一 行 必须 指定 函数 名 、 和 输入 变量 (参数 ) 和 输出 变量 (参数 ) 输入 参数 是 从 
MATLAB 的 工作 空间 复制 到 函数 工作 空间 的 变量 . 

43) function [output], output2,…] = function name(inputl, input2,---). 

(4) 一 个 函数 可 以 有 零 个 、 一 个 或 几 个 输入 参数 和 返回 值 . 

若 只 有 一 个 返回 值 ， 用 来 包含 返回 值 的 方 括号 可 以 省 略 : 


function output= function name (inputl, input2, ...) 


若 没 有 返回 值 ， 则 必须 写 方 括号 : 


可 
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function []-function name (inputi, input2, ...) 


若 没 有 输入 参数 ， 圆 括号 可 省 略 : 


function [output1，output2，...] = function name 


若 只 有 一 个 输入 参数 ， 用 来 包含 输入 参数 的 圆 括号 不 可 省 略 ; 


function [outputl, output2, ...] = function name(input) 


调用 函数 时 的 问题 ， 函 数 返 回 值 变量 的 问题 . 必须 数目 足够. 
建议 函数 取 名 和 文件 名 一 样 . 调用 时 所 用 的 变量 并 不 需要 与 函数 文件 中 定义 的 变量 有 
相同 的 名 字 . 


А.З ”稀疏 矩阵 和 符号 变量 及 其 运算 


稀 琉 矩阵 和 符号 变量 作为 MATLAB 中 变量 的 一 种 ， 遵 循 MATLAB 中 对 变量 的 大 多 
数 要 求 . 只 是 这 两 种 变量 对 于 只 熟悉 C 语言 或 者 FORTRAN 语言 ， 而 从 未 接触 过 
MATLAB 的 读者 来 说 是 陌生 的 ， 而 且 在 本 书 例子 中 也 使 用 了 上 述 两 种 变量 ， 所 以 单列 一 
节 对 其 进行 介绍 . 


A.3.1 稀疏 矩阵 


在 有 限 元 问题 中 ， 结 构 的 刚度 矩阵 和 质量 矩阵 包含 有 大 量 的 零 元 素 ， 即 具有 稀 琉 的 特 
点 . 对 于 自由 度 较 多 的 结构 ， 这 一 特点 更 加 明显 . 因此 直接 使 用 普通 的 二 维 数 组 来 记录 稀 
玻 矩 阵 中 的 全 部 元 素 ， 显 然 是 不 经 济 的 ， 也 是 不 必要 的 . 如 果 通 过 适当 的 编程 ， 仅 仅 记 录 
销路 矩阵 中 的 非 零 元 素 ， 就 可 以 大 大 减少 所 和 需 的 储存 空间 . 并 且 由 于 在 这 种 记录 方式 中 非 
零 元 素 的 位 置 是 已 知 的 ， 所 以 无 须 再 做 判断 ， 就 能 区 分 矩阵 运算 中 有 和 零 元 素 参 与 的 部 分 并 
将 其 略 去 ， 而 仅 计算 全 部 参与 元 素 都 非 零 的 部 分 ， 这 样 能 有 效 节省 计算 时 间 . 

但 无 论 是 通过 仅 储存 非 零 元 素来 节省 存储 空间 ， 还 是 通过 略 过 和 矩阵 运算 中 有 零 元 素 参 
与 的 部 分 来 加 速 计算 ， 都 需要 编写 额外 的 程序 来 实现 . 使 用 MATLAB 则 可 以 方便 地 实现 
上 述 稀疏 矩阵 两 个 优点 而 不 带 来 额外 编程 工作 量 . 


1. 创建 稀疏 矩阵 


当 通 过 例 A.1 中 的 常规 方式 创建 一 个 矩阵 的 时 候 ，MATLAB 将 默认 使 用 普通 矩阵 格 
式 (可 以 和 稀疏 矩阵 相对 称 为 满 矩阵 )， 所 以 在 创建 稀 朴 矩阵 的 时 候 ， 需 要 特别 指出 . 

有 两 种 方法 可 以 用 来 创建 稀疏 和 矩阵: 

O) 从 已 有 甜 阵 转换 而 得 . 使 用 B=sparse(A)， 可 以 将 一 个 已 存在 的 满 矩 阵 A 转换 成 稀 
HSE ME В. 

(2) 使 用 相应 函数 创建 一 个 稀疏 矩阵 . 如 sparse(m,n), 将 生成 一 个 ma 的 所 有 元 素 都 
是 0 的 稀疏 矩 阵 ，speye(m,n) 将 生成 一 个 men 单位 稀疏 矩阵 ; sprand(A) 将 生成 与 A AAA 
同 结构 的 随机 稀疏 矩阵 ， 且 元 素 服从 均匀 分 布 . 类 似 上 述 功能 的 函数 还 有 sprandn, 
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sprandsym 等 ， 且 各 函数 都 有 多 种 调用 方式 ， 如 sparse 函数 还 可 以 通过 使 用 5 个 参数 : 

sparse(ij,s,m,n,) 生 成 一 个 mxn 的 稀疏 垂 阵 ， 向 量 ij 分 别 是 向 量 s 中 非 零 元 素 在 矩阵 中 的 
行 数 和 列 数 . 在 这 里 限于 篇 幅 不 能 一 一 介绍 ， 请 读者 参考 MATLAB 帮助 来 了 解 各 函数 的 
详细 用 法 . 

2. ЖАНИ 

在 得 到 了 稀疏 矩阵 之 后 ， 在 矩阵 的 元 素 读 取 和 修改 上 ， 其 用 法 与 满 矩阵 相同 , 有 以 下 

(1) 在 稀疏 矩阵 和 满 矩 阵 的 混合 运算 中 ， 结 果 将 以 满 矩阵 形式 保存 . 

D 各 系统 函数 在 使 用 稀疏 矩阵 作为 输入 参数 时 ， 如 果 输 出 参数 为 一 个 标量 或 者 一 个 
给 定 大 小 的 向 量 ， 输 出 参数 是 满 矩阵 格式 ， 如 命令 size; 但 如 果 输 出 参数 是 一 个 矩阵 ， 一 
般 就 会 与 输入 参数 相同 为 稀疏 矩阵 格式 ， 如 命令 ар. 

(3) 少数 函数 只 支持 满 矩阵 格式 或 者 稀疏 矩阵 格式 . 如 求解 特征 值 问题 的 函数 eig 要 求 
其 输入 参数 必须 为 满 矩阵 格式 ， 对 稀疏 矩阵 的 特征 值 问题 ， 需 要 使 用 相应 eigs 函数 , 当 使 
用 eig 函数 求解 稀疏 矩阵 的 特征 值 问题 时 ， 系 统 会 提示 应 该 使 用 eigs 函数 . 

LØ A.S] CUWER A, MBEBA C， 计 算 A*B. 


0 о 4 0 


S 
meo. 


sparse(i,j,s,4,4) 


nuana 


O n n ur 


(3,1) 1 
(2,2) 2 
(3,2) 3 
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(4,3) 4 
(1,4) 5 
VERE ij fa s 要 求 为 向 量 (nx1 矩阵 ， 列 向 量 ). 
D=A*B 
D= 
0 о 20 о 
о 4 о о 
0 6 0 5 
4 12 о 0 


WERE A 和 稀疏 矩阵 B 的 乘积 结果 D ЭЖЕЕ. 


E = full(C) 

E= 
0 0 0 5 
0 2 0 0 
1 3 0 0 
0 0 4 0 


通过 full 函数 可 以 将 稀疏 矩阵 转换 为 满 矩 阵 . 


А.32 符号 变量 和 符号 运算 


在 一 般 计 算 机 语言 中 ， 为 求解 某 一 表达 式 的 结果 ， 要 求 表达 式 中 的 参与 量 必须 都 是 数 
值 ， 其 计算 结果 也 以 数值 方式 给 出 . 例如 有 两 个 变量 x 和 y， 需 要 计算 (e+1)*QG+2) 时 ， 必 
须要 先 给 出 x 和 у 的 数值 才 可 以 完成 计算 . 而 在 MATLAB 中 可 以 使 用 符号 运算 ， 直 接 求 
解 得 到 上 述 问 题 的 解析 解 ，2*xtytx*y+3. 

使 用 符号 运算 一 般 是 出 于 两 种 需要 : 

(Т) 希望 得 到 问题 的 表达 式 解 . 例如 求解 某 一 个 表达 式 的 积分 或 者 微分 . 

(2) 希望 得 到 无 数值 计算 误差 的 解 . 如 计算 1/3， 无 论 数 值 计 算 有 些 数值 位 数 有 多 高 ， 
都 是 有 误差 的 ， 在 后 继 运 算 中 ， 这 种 误差 可 能 会 累计 起 来 而 越 变 越 大 . 而 采用 符号 预算 ， 
计算 结果 用 分 数 表示 ， 就 无 此 问题 . 

符号 运算 的 缺点 是 运算 速度 很 乙 ， 不 适合 计算 量 很 大 的 工作 . 如 求解 一 个 40 阶 和 矩阵 
的 逆 ， 如 果 是 要 求 数值 解 ， 计 算 量 对 于 主流 的 个 人 计算 机 来 说 是 较 小 的 ， 但 是 要 求 一 个 同 
阶 符号 矩阵 的 逆 ， 就 需要 超出 一 个 数量 级 的 计算 时 间 . 

MATLAB 中 的 符号 运算 功能 相当 强大 ， 这 里 简要 介绍 其 基本 功能 . 

1. 创建 符号 变量 


要 进行 符号 运算 ， 首 先 需要 创建 符号 变量 . 可 以 使 用 sym 和 syms 来 创建 符号 变量 . 
符号 变量 有 两 种 ， 一 种 其 内 容 是 符号 形式 的 数值 ， 另 一 种 其 内 容 是 符号 . 通过 s=sym(a) 的 
形式 ， 可 以 将 a 的 内 容 转 化 为 符号 变量 s. WR a 是 一 个 数值 ， 那 在 s 中 将 储存 相应 数值 
的 符号 表达 方式 . MR a 是 一 个 字符 串 ， 则 创建 了 以 此 字符 串 的 符号 变量 ， 在 这 种 情况 下 
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最 好 使 用 和 符号 同样 的 字符 作 变 量 名 . 
【 例 A.6】 创建 符号 变量 s，x; 并 计算 з*х 和 5/3. 
а=[1 2; 3 4]; 
s-sym(a) 
[ 1, 2] 
[ 3, 4] 


注意 符号 矩阵 在 输出 上 和 数值 矩阵 的 不 同 . 


[ 1⁄3, 2/3] 

i 1, 4/3) 

当 需 要 创建 多 个 类 似 xy 的 符号 变量 的 时 候 ， 使 用 sym 函数 的 方式 便 不 够 简便 . 例如 
需要 创建 符号 变量 x 和 y， 需 要 使 用 两 次 sym 函数 . 实际 上 可 以 通过 syms 命令 来 更 加 方 
便 地 完成 这 一 工作 . 通过 如 下 方式 : 

syms ху 

可 以 一 次 就 得 到 符号 变量 x 和 у. 但 是 要 将 一 个 数值 转化 为 符号 表达 方式 时 ， 必 须 使 
用 sym 函数 . 

2. 代 换 符号 表达 式 中 符号 变量 

在 使 用 符号 运算 完成 公式 推导 后 ， 有 时 需要 将 符号 表达 式 中 的 部 分 或 者 全 部 符号 代 换 
为 数值 量 ， 有 时 需要 将 其 中 的 某 一 个 符号 换 成 另外 一 个 符号 ， 这 两 种 情况 下 都 可 使 用 subs 
函数 . 

【 例 A.7】 subs 函数 的 用 法 . 

syms a b 

8-cos (a) «sin(b) ; 

subs (s, (a, b), [sym('alpha'),2]) 

ans - 

cos (alpha) «sin(2) 

注意 ，s 中 的 符号 表达 式 还 是 没有 变化 的 . 如 果 要 将 新 的 表达 式 保存 在 其 他 标量 中 ， 
如 s1， 可 以 将 上 面 函数 写成 sl=subs(s, {a,b},[sym('alpha'),2]). 
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subs (s, (a,b), [1,2]) 
ans = 
1.4496 


此 时 由 于 s 中 所 有 符号 变量 已 经 都 被 替换 为 数值 ， 所 以 所 得 结果 为 数值 . 


з. 其 他 相关 函数 

MATLAB 中 的 符号 运算 功能 十 分 强大 ， 拥 有 众多 函数 . 可 以 方便 地 完成 求解 线形 方 
程 组、 微分 方程 、 求 导 和 积分 等 功能 . 读者 可 以 参阅 MATLAB 的 帮助 文档 详细 研究 以 上 
各 领域 函数 . 从 下 例 中 可 以 看 出 MATLAB 中 符号 运算 功能 的 完善 . 

【 例 A.8】 求 解 微分 方程 并 绘 出 其 解 在 [-2r,3r] 的 图 形 . 微分 方程 为 y+y=2cos(1) ， 
其 边界 条 件 为 : y(0)=0,y(1)=sin(1) . 

首先 通过 dsolve 函数 来 求解 微分 方程 : 

s-dsolve('D2y«y-2*cos (t) ', 'y(0)=0", 'y(1)=sin(1)") 


s= 
sin(t)*t 


在 dsolve 函数 中 默认 自 变量 是 AG D 表示 求 导 ， 而 D2 表示 二 级 求 导 . 
现在 为 观察 s 的 变化 规律 ， 需 要 绘制 其 图 像 . 但 不 必 对 其 中 的 自 变量 т 在 其 变化 区 间 
内 进行 多 次 代 换 来 得 到 s 的 变化 规律 ， 而 可 以 使 用 ezplot 函数 . 


ezplot(s,[-2*pi, 3*pi]) 


所 绘 的 图 形 如 图 A.2 所 示 . 


sin(x) x 


图 A2 例 A.8 所 绘 的 图 形 
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